<% if session("username") = "" then
Response.Redirect "login.asp"
end if 
%>

<% 

'Database Connection String; 
'Server.MapPath = the location of the database on the server
'please change the path to the correct path on your server
Set objADO = Server.CreateObject("ADODB.Connection")
sDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db\fsboREplus.mdb") & ";"	
objADO.Open sDSN

'Contact Variables; Used in contact.asp  and other pages that contain the contact info.
'These variables are pulled from the table TblConfig and these values can
'be edited through the site admin control panel. Do not edit the values in this page.

		' Create a recordset object to store specific table information
		Set objConfig = Server.CreateObject("ADODB.Recordset")
		
		'Establish what records you want selected for the SQL query string
		SQL = "Select * From TblConfig"

		'Set the recordset object equal to the SQL query string
		objConfig.Open SQL, objADO, 1, 3

strVarCompany = objConfig("Company")
strVarAddress = objConfig("CompanyAddress")
strVarCity = objConfig("CompanyCity")
strVarState = objConfig("CompanyState")
strVarZip = objConfig("CompanyZip")
strVarCountry = objConfig("CompanyCountry")
strVarEmail = objConfig("CompanyEmail")
strVarPhone = objConfig("CompanyPhone")
strVarFax = objConfig("CompanyFax")
strVarMainContact = objConfig("CompanyContact")
strVarWebsite = objConfig("CompanyWebsite")
strVarBGColor = objConfig("BGColor")
strSlogan = objConfig("Slogan")
strOfferAdvertising = objConfig("OfferAdvertising")
str1000ImpressionsAdCost = objConfig("1000ImpressionsCost")
str5000ImpressionsAdCost = objConfig("5000ImpressionsCost")
str10000ImpressionsAdCost = objConfig("10000ImpressionsCost")
str50000ImpressionsAdCost = objConfig("50000ImpressionsCost")
str100000ImpressionsAdCost = objConfig("100000ImpressionsCost")
strServiceType = objConfig("ServiceType")
strServiceAdCost = objConfig("ServiceAdCost")
strAgentList = objConfig("AgentList")
strLogo = objConfig("logo")
strKeywords = objConfig("Keywords")
strMetaDescription = objConfig("MetaDescription")


'PAYPAL VARIABLES - See PaypalCode.doc located in the documentation folder
'These variables are pulled from the table TblConfig and these values can
'be edited through the site admin control panel. Do not edit the values in this page.
'Email address the payment should be sent to
	strPayPalEmail = objConfig("PayPalEmail")

strAgentFeatured1MonthCost = objConfig("AgentFeatured1MonthCost")
strAgentFeatured3MonthCost = objConfig("AgentFeatured3MonthCost")
strAgentFeatured6MonthCost = objConfig("AgentFeatured6MonthCost")
strAgentFeatured12MonthCost = objConfig("AgentFeatured12MonthCost")
strAgentStandard1MonthCost = objConfig("AgentStandard1MonthCost")
strAgentStandard3MonthCost = objConfig("AgentStandard3MonthCost")
strAgentStandard6MonthCost = objConfig("AgentStandard6MonthCost")
strAgentStandard12MonthCost = objConfig("AgentStandard12MonthCost")

strUserFeatured1MonthCost = objConfig("UserFeatured1MonthCost")
strUserFeatured3MonthCost = objConfig("UserFeatured3MonthCost")
strUserFeatured6MonthCost = objConfig("UserFeatured6MonthCost")
strUserFeatured12MonthCost = objConfig("UserFeatured12MonthCost")
strUserStandard1MonthCost = objConfig("UserStandard1MonthCost")
strUserStandard3MonthCost = objConfig("UserStandard3MonthCost")
strUserStandard6MonthCost = objConfig("UserStandard6MonthCost")
strUserStandard12MonthCost = objConfig("UserStandard12MonthCost")

'Description of the service to appear on the Featured Listing receipt
	strFeaturedAdDescription = "Featured Listing on " & strVarWebsite 
	
'Description of the service to appear on the Regular Listing receipt
	strStandardAdDescription = "Standard Listing on " & strVarWebsite 
	
'Description of the service to appear on the Upgrade Listing receipt
	strUpgradeAdDescription = "Upgrade Listing on " & strVarWebsite 
'Cost you want to charge for the listing
	strUpgradeAdCost = objConfig("UpgradeAdCost")		

'whether ads are paid or free	
strListingType = objConfig("ListingType")		

'Page that the user should return to after making payment for featured ad; 
'They should return to page step1F.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1F.asp
	strPayPalReturnPageFeatured =  strVarWebsite + "/featuredsuccess.asp" 
	
'Page that the user should return to after making payment for regular ad; 
'They should return to page step1.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1.asp
	strPayPalReturnPageRegular =  strVarWebsite + "/standardsuccess.asp" 	
	
'Page that the user should return to after making payment for regular ad; 
'They should return to page step1.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1.asp
	strPayPalReturnPageUpgrade =  strVarWebsite + "/upgradesuccess.asp" 	

'Page that the user should return to if cancelling before completing PayPal payment; 
'They should return to page cancel.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/cancel.asp
	strPayPalCancel = strVarWebsite + "/cancel.asp"


	
	
%>

<%
Sub CreateRoomCombo(iCount)%>
	
		<select name="RoomID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Room --- </option>
			<%sRoomField = "REListingRoom" & iCount & "ID"
			rsRERoom.MoveFirst
			Do While Not rsRERoom.EOF%>
			<option value="<%=rsRERoom("RERoomID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sRoomField) = rsRERoom("RERoomID") Then Response.Write " SELECTED"
			End If%>><%=rsRERoom("RERoomName")%></option>
			<%rsRERoom.MoveNext
			Loop%>
		</select><%	
End Sub

Sub CreateFlooringCombo(iCount)%>
	
		<select name="FlooringID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Flooring --- </option>
			<%sFlooringField = "REListingFlooring" & iCount & "ID"
			rsREFlooring.MoveFirst
			Do While Not rsREFlooring.EOF%>
			<option value="<%=rsREFlooring("REFlooringID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sFlooringField) = rsREFlooring("REFlooringID") Then Response.Write " SELECTED"
			End If%>><%=rsREFlooring("REFlooringName")%></option>
			<%rsREFlooring.MoveNext
			Loop%>
		</select>
	<%
End Sub


' Formats a given 10 digit number into a nice looking phone number
' Example: given strNumber of 8005551212 you get (800) 555-1212
Function FormatPhoneNumber(strNumber)
	Dim strInput       ' String to hold our entered number
	Dim strTemp        ' Temporary string to hold our working text
	Dim strCurrentChar ' Var for storing each character for eval.
	Dim I	           ' Looping var
	
	' Uppercase all characters for consistency
	strInput = UCase(strNumber)

	' To be able to handle some pretty bad formatting, strip out
	' all characters except for chars A to Z and digits 0 to 9
	' before proceeding.  I left in the chars for slogan
	' numbers like 1-800-GET-CASH etc...
	For I = 1 To Len(strInput)
		strCurrentChar = Mid(strInput, I, 1)
		' Numbers (0 to 9)
		If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then
			strTemp = strTemp & strCurrentChar
		End If 
		' Upper Case Chars (A to Z)
		If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then
			strTemp = strTemp & strCurrentChar
		End If 
	Next 'I
	
	' Swap strTemp back to strInput for next set of validation
	strInput = strTemp
	strTemp = ""
	
	' Remove leading 1 if applicable
	If Len(strInput) = 11 And Left(strInput, 1) = "1" Then
		strInput = Right(strInput, 10)
	End If
	
	' Error catch to make sure strInput is proper length now that
	' we've finished manipulating it.
	If Not Len(strInput) = 10 Then
		' Handle errors.
		Err.Raise 1, "FormatPhoneNumber function", _
			"The phone number to be formatted must be a valid 10 digit US phone number!"
	End If
	
	' If an error occurred then the rest of this won't get processed.

	' Build the output formatted string
	' (xxx) xxx-xxxx
	strTemp = "("                             ' "("
	strTemp = strTemp & Left(strInput, 3)     ' Area code
	strTemp = strTemp & ") "                  ' ") "
	strTemp = strTemp & Mid(strInput, 4, 3)   ' Exchange
	strTemp = strTemp & "-"                   ' "-"
	strTemp = strTemp & Right(strInput, 4)    ' 4 digit part

	' Set return value
	FormatPhoneNumber = strTemp
End Function


sub openrs(rs, sql)
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.CursorLocation = adUseServer
  rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
end sub

function ToHTML(strValue)

  if IsNull(strValue) then 
    ToHTML = ""
  else
    ToHTML = Server.HTMLEncode(strValue)
  end if

end function

function ToURL(strValue)
  if IsNull(strValue) then strValue = ""
  ToURL = Server.URLEncode(strValue)
end function

function GetValueHTML(rs, strFieldName)
  GetValueHTML = ToHTML(GetValue(rs, strFieldName))
end function

function GetValue(rs, strFieldName)
  on error resume next
  if rs is nothing then
  	GetValue = ""
  elseif (not rs.EOF) and (strFieldName <> "") then
    res = rs(strFieldName)
    if isnull(res) then 
      res = ""
    end if
    GetValue = res
  else
    GetValue = ""
  end if
  if bDebug then response.write err.Description
end function

function GetParam(ParamName)
  if Request.QueryString(ParamName).Count > 0 then 
    Param = Request.QueryString(ParamName)
  elseif Request.Form(ParamName).Count > 0 then
    Param = Request.Form(ParamName)
  else 
    Param = ""
  end if
  if Param = "" then
    GetParam = Empty
  else
    GetParam = Param
  end if
end function

Function ToSQL(Value, sType)
  Param = Value
  if Param = "" then
    ToSQL = "Null"
  else
    if sType = "Number" then
      ToSQL = CDbl(Param)
    else
      ToSQL = "'" & Replace(Param, "'", "''") & "'"
    end if
  end if
end function

function DLookUp(Table, fName, sWhere)
  on error resume next
  Res = cn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value
  if IsNull(Res) then Res = ""
  DLookUp = Res
end function

function getCheckBoxValue(sVal, CheckedValue, UnCheckedValue, sType)
  if isempty(sVal) then
    if UnCheckedValue = "" then
      getCheckBoxValue = "Null"
    else
      if sType = "Number" then
        getCheckBoxValue = UnCheckedValue
      else
        getCheckBoxValue = "'" & Replace(UnCheckedValue, "'", "''") & "'"
      end if
    end if
  else
    if CheckedValue = "" then
      getCheckBoxValue = "Null"
    else
      if sType = "Number" then
        getCheckBoxValue = CheckedValue
      else
        getCheckBoxValue = "'" & Replace(CheckedValue, "'", "''") & "'"
      end if
    end if
  end if
end function

function getValFromLOV(sVal, aArr)
  sRes = ""

  if (ubound(aArr) mod 2) = 1 then
    for i = 0 to ubound(aArr) step 2
      if cstr(sVal) = cstr(aArr(i)) then sRes = aArr(i+1)
    next
  end if

  getValFromLOV = sRes  
end function


function get_options(sql,is_search,is_required,selected_value)
  options_str=""
  if is_search then
    options_str=options_str&"<option value="""">All</option>"
  else
    if is_required then options_str=options_str&"<option value=""""></option>"
  end if
  
  openrs tmprs,sql
  while not tmprs.EOF
    id=GetValue(tmprs, 0)
    value=GetValue(tmprs, 1)
    selected=""
    if CStr(id) = CStr(selected_value) then
			selected = "SELECTED"
		end if
    options_str = options_str & "<option value="""&id&""" "&selected&">"&value&"</option>"
		tmprs.MoveNext
  wend
  get_options = options_str
end function


Function ProceedError()
  if cn.Errors.Count > 0 then
    ProceedError = cn.Errors(0).Description & " (" & cn.Errors(0).Source & ")"
  elseif not (Err.Description = "") then
    ProceedError = Err.Description
  else
    ProceedError = ""
  end if
end Function


function CheckSecurity(iLevel)
  if Session("UserID") = "" then
    response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME")))
  else
    if CLng(Session("UserRights")) < CLng(iLevel) then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) 
  End if
end function

%>


<% 

'Database Connection String; 
'Server.MapPath = the location of the database on the server
'please change the path to the correct path on your server
Set objADO = Server.CreateObject("ADODB.Connection")
sDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db\fsboREplus.mdb") & ";"	
objADO.Open sDSN

'Contact Variables; Used in contact.asp  and other pages that contain the contact info.
'These variables are pulled from the table TblConfig and these values can
'be edited through the site admin control panel. Do not edit the values in this page.

		' Create a recordset object to store specific table information
		Set objConfig = Server.CreateObject("ADODB.Recordset")
		
		'Establish what records you want selected for the SQL query string
		SQL = "Select * From TblConfig"

		'Set the recordset object equal to the SQL query string
		objConfig.Open SQL, objADO, 1, 3

strVarCompany = objConfig("Company")
strVarAddress = objConfig("CompanyAddress")
strVarCity = objConfig("CompanyCity")
strVarState = objConfig("CompanyState")
strVarZip = objConfig("CompanyZip")
strVarCountry = objConfig("CompanyCountry")
strVarEmail = objConfig("CompanyEmail")
strVarPhone = objConfig("CompanyPhone")
strVarFax = objConfig("CompanyFax")
strVarMainContact = objConfig("CompanyContact")
strVarWebsite = objConfig("CompanyWebsite")
strVarBGColor = objConfig("BGColor")
strSlogan = objConfig("Slogan")
strOfferAdvertising = objConfig("OfferAdvertising")
str1000ImpressionsAdCost = objConfig("1000ImpressionsCost")
str5000ImpressionsAdCost = objConfig("5000ImpressionsCost")
str10000ImpressionsAdCost = objConfig("10000ImpressionsCost")
str50000ImpressionsAdCost = objConfig("50000ImpressionsCost")
str100000ImpressionsAdCost = objConfig("100000ImpressionsCost")
strServiceType = objConfig("ServiceType")
strServiceAdCost = objConfig("ServiceAdCost")
strAgentList = objConfig("AgentList")
strLogo = objConfig("logo")
strKeywords = objConfig("Keywords")
strMetaDescription = objConfig("MetaDescription")


'PAYPAL VARIABLES - See PaypalCode.doc located in the documentation folder
'These variables are pulled from the table TblConfig and these values can
'be edited through the site admin control panel. Do not edit the values in this page.
'Email address the payment should be sent to
	strPayPalEmail = objConfig("PayPalEmail")

strAgentFeatured1MonthCost = objConfig("AgentFeatured1MonthCost")
strAgentFeatured3MonthCost = objConfig("AgentFeatured3MonthCost")
strAgentFeatured6MonthCost = objConfig("AgentFeatured6MonthCost")
strAgentFeatured12MonthCost = objConfig("AgentFeatured12MonthCost")
strAgentStandard1MonthCost = objConfig("AgentStandard1MonthCost")
strAgentStandard3MonthCost = objConfig("AgentStandard3MonthCost")
strAgentStandard6MonthCost = objConfig("AgentStandard6MonthCost")
strAgentStandard12MonthCost = objConfig("AgentStandard12MonthCost")

strUserFeatured1MonthCost = objConfig("UserFeatured1MonthCost")
strUserFeatured3MonthCost = objConfig("UserFeatured3MonthCost")
strUserFeatured6MonthCost = objConfig("UserFeatured6MonthCost")
strUserFeatured12MonthCost = objConfig("UserFeatured12MonthCost")
strUserStandard1MonthCost = objConfig("UserStandard1MonthCost")
strUserStandard3MonthCost = objConfig("UserStandard3MonthCost")
strUserStandard6MonthCost = objConfig("UserStandard6MonthCost")
strUserStandard12MonthCost = objConfig("UserStandard12MonthCost")

'Description of the service to appear on the Featured Listing receipt
	strFeaturedAdDescription = "Featured Listing on " & strVarWebsite 
	
'Description of the service to appear on the Regular Listing receipt
	strStandardAdDescription = "Standard Listing on " & strVarWebsite 
	
'Description of the service to appear on the Upgrade Listing receipt
	strUpgradeAdDescription = "Upgrade Listing on " & strVarWebsite 
'Cost you want to charge for the listing
	strUpgradeAdCost = objConfig("UpgradeAdCost")		

'whether ads are paid or free	
strListingType = objConfig("ListingType")		

'Page that the user should return to after making payment for featured ad; 
'They should return to page step1F.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1F.asp
	strPayPalReturnPageFeatured =  strVarWebsite + "/featuredsuccess.asp" 
	
'Page that the user should return to after making payment for regular ad; 
'They should return to page step1.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1.asp
	strPayPalReturnPageRegular =  strVarWebsite + "/standardsuccess.asp" 	
	
'Page that the user should return to after making payment for regular ad; 
'They should return to page step1.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1.asp
	strPayPalReturnPageUpgrade =  strVarWebsite + "/upgradesuccess.asp" 	

'Page that the user should return to if cancelling before completing PayPal payment; 
'They should return to page cancel.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/cancel.asp
	strPayPalCancel = strVarWebsite + "/cancel.asp"


	
	
%>

<%
Sub CreateRoomCombo(iCount)%>
	
		<select name="RoomID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Room --- </option>
			<%sRoomField = "REListingRoom" & iCount & "ID"
			rsRERoom.MoveFirst
			Do While Not rsRERoom.EOF%>
			<option value="<%=rsRERoom("RERoomID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sRoomField) = rsRERoom("RERoomID") Then Response.Write " SELECTED"
			End If%>><%=rsRERoom("RERoomName")%></option>
			<%rsRERoom.MoveNext
			Loop%>
		</select><%	
End Sub

Sub CreateFlooringCombo(iCount)%>
	
		<select name="FlooringID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Flooring --- </option>
			<%sFlooringField = "REListingFlooring" & iCount & "ID"
			rsREFlooring.MoveFirst
			Do While Not rsREFlooring.EOF%>
			<option value="<%=rsREFlooring("REFlooringID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sFlooringField) = rsREFlooring("REFlooringID") Then Response.Write " SELECTED"
			End If%>><%=rsREFlooring("REFlooringName")%></option>
			<%rsREFlooring.MoveNext
			Loop%>
		</select>
	<%
End Sub


' Formats a given 10 digit number into a nice looking phone number
' Example: given strNumber of 8005551212 you get (800) 555-1212
Function FormatPhoneNumber(strNumber)
	Dim strInput       ' String to hold our entered number
	Dim strTemp        ' Temporary string to hold our working text
	Dim strCurrentChar ' Var for storing each character for eval.
	Dim I	           ' Looping var
	
	' Uppercase all characters for consistency
	strInput = UCase(strNumber)

	' To be able to handle some pretty bad formatting, strip out
	' all characters except for chars A to Z and digits 0 to 9
	' before proceeding.  I left in the chars for slogan
	' numbers like 1-800-GET-CASH etc...
	For I = 1 To Len(strInput)
		strCurrentChar = Mid(strInput, I, 1)
		' Numbers (0 to 9)
		If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then
			strTemp = strTemp & strCurrentChar
		End If 
		' Upper Case Chars (A to Z)
		If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then
			strTemp = strTemp & strCurrentChar
		End If 
	Next 'I
	
	' Swap strTemp back to strInput for next set of validation
	strInput = strTemp
	strTemp = ""
	
	' Remove leading 1 if applicable
	If Len(strInput) = 11 And Left(strInput, 1) = "1" Then
		strInput = Right(strInput, 10)
	End If
	
	' Error catch to make sure strInput is proper length now that
	' we've finished manipulating it.
	If Not Len(strInput) = 10 Then
		' Handle errors.
		Err.Raise 1, "FormatPhoneNumber function", _
			"The phone number to be formatted must be a valid 10 digit US phone number!"
	End If
	
	' If an error occurred then the rest of this won't get processed.

	' Build the output formatted string
	' (xxx) xxx-xxxx
	strTemp = "("                             ' "("
	strTemp = strTemp & Left(strInput, 3)     ' Area code
	strTemp = strTemp & ") "                  ' ") "
	strTemp = strTemp & Mid(strInput, 4, 3)   ' Exchange
	strTemp = strTemp & "-"                   ' "-"
	strTemp = strTemp & Right(strInput, 4)    ' 4 digit part

	' Set return value
	FormatPhoneNumber = strTemp
End Function


sub openrs(rs, sql)
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.CursorLocation = adUseServer
  rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
end sub

function ToHTML(strValue)

  if IsNull(strValue) then 
    ToHTML = ""
  else
    ToHTML = Server.HTMLEncode(strValue)
  end if

end function

function ToURL(strValue)
  if IsNull(strValue) then strValue = ""
  ToURL = Server.URLEncode(strValue)
end function

function GetValueHTML(rs, strFieldName)
  GetValueHTML = ToHTML(GetValue(rs, strFieldName))
end function

function GetValue(rs, strFieldName)
  on error resume next
  if rs is nothing then
  	GetValue = ""
  elseif (not rs.EOF) and (strFieldName <> "") then
    res = rs(strFieldName)
    if isnull(res) then 
      res = ""
    end if
    GetValue = res
  else
    GetValue = ""
  end if
  if bDebug then response.write err.Description
end function

function GetParam(ParamName)
  if Request.QueryString(ParamName).Count > 0 then 
    Param = Request.QueryString(ParamName)
  elseif Request.Form(ParamName).Count > 0 then
    Param = Request.Form(ParamName)
  else 
    Param = ""
  end if
  if Param = "" then
    GetParam = Empty
  else
    GetParam = Param
  end if
end function

Function ToSQL(Value, sType)
  Param = Value
  if Param = "" then
    ToSQL = "Null"
  else
    if sType = "Number" then
      ToSQL = CDbl(Param)
    else
      ToSQL = "'" & Replace(Param, "'", "''") & "'"
    end if
  end if
end function

function DLookUp(Table, fName, sWhere)
  on error resume next
  Res = cn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value
  if IsNull(Res) then Res = ""
  DLookUp = Res
end function

function getCheckBoxValue(sVal, CheckedValue, UnCheckedValue, sType)
  if isempty(sVal) then
    if UnCheckedValue = "" then
      getCheckBoxValue = "Null"
    else
      if sType = "Number" then
        getCheckBoxValue = UnCheckedValue
      else
        getCheckBoxValue = "'" & Replace(UnCheckedValue, "'", "''") & "'"
      end if
    end if
  else
    if CheckedValue = "" then
      getCheckBoxValue = "Null"
    else
      if sType = "Number" then
        getCheckBoxValue = CheckedValue
      else
        getCheckBoxValue = "'" & Replace(CheckedValue, "'", "''") & "'"
      end if
    end if
  end if
end function

function getValFromLOV(sVal, aArr)
  sRes = ""

  if (ubound(aArr) mod 2) = 1 then
    for i = 0 to ubound(aArr) step 2
      if cstr(sVal) = cstr(aArr(i)) then sRes = aArr(i+1)
    next
  end if

  getValFromLOV = sRes  
end function


function get_options(sql,is_search,is_required,selected_value)
  options_str=""
  if is_search then
    options_str=options_str&"<option value="""">All</option>"
  else
    if is_required then options_str=options_str&"<option value=""""></option>"
  end if
  
  openrs tmprs,sql
  while not tmprs.EOF
    id=GetValue(tmprs, 0)
    value=GetValue(tmprs, 1)
    selected=""
    if CStr(id) = CStr(selected_value) then
			selected = "SELECTED"
		end if
    options_str = options_str & "<option value="""&id&""" "&selected&">"&value&"</option>"
		tmprs.MoveNext
  wend
  get_options = options_str
end function


Function ProceedError()
  if cn.Errors.Count > 0 then
    ProceedError = cn.Errors(0).Description & " (" & cn.Errors(0).Source & ")"
  elseif not (Err.Description = "") then
    ProceedError = Err.Description
  else
    ProceedError = ""
  end if
end Function


function CheckSecurity(iLevel)
  if Session("UserID") = "" then
    response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME")))
  else
    if CLng(Session("UserRights")) < CLng(iLevel) then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) 
  End if
end function

%>


<HTML>
<HEAD>
<TITLE><%= strVarCompany %> - <%= objConfig("Keywords") %></TITLE>

<META NAME="description" content="<%= strMetaDescription %>">
<META NAME="keywords" content="Statern Island, For sale by owner, For Sale by Owner, Real Estate, Homes For Sale, New York"> <!-- strKeywords -->
<META NAME="abstract" CONTENT="For Sale by Owner  - Real Estate -  Homes For Sale">
<META NAME="revisit-after" CONTENT="20 days">
<META NAME="GOOGLEBOT" CONTENT="INDEX, FOLLOW">
<META NAME="robots" CONTENT="index,follow">

<STYLE TYPE="TEXT/CSS"> 
<!--

A { text-decoration: none }


A {color:#000000; font-family: Helvetica, Arial; font-size: 12px; text-decoration: none;}
A:hover {color:#666633; font-family: Helvetica, Arial; font-size: 12px; text-decoration: none;}

td {font-family: Helvetica, Arial; font-size: 12px;}
.linkcell { padding-left: 11px; font-family: Helvetica, Arial; font-size: 12px;}
hr {  color: #000000}

//.unnamed1 {  font-family: Arial, Helvetica, sans-serif; font-size: 12px}
-->


</STYLE>
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>

<SCRIPT LANGUAGE="JavaScript">
<!--
self.name = "main";
function popup_win(url,n,w,h,s,r,x,y)
{
	win = window.open (url,n,"width="+w+",height="+h+",scrollbars="+s+"statusbar=0,resizable="+r+",toolbar=0,location=0");


}



// -->
</SCRIPT>




</HEAD>
<BODY BGCOLOR="<%= strVarBGColor %>" LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 onLoad="MM_preloadImages('images/but_more_detail_r.gif')">



<% strUserName = session("UserName") %>

<TABLE WIDTH=740 BORDER=0 CELLPADDING=0 CELLSPACING=0>
  <TR> 
    <TD COLSPAN=3 bgcolor="E0E1BE" valign="top" height="55" align="left"><a href="home.asp"><img src="Upload/Logo/<%= strLogo %>" align="left" border="0"></a> 
     
      </TD>
   
    <TD COLSPAN=5 bgcolor="E0E1BE" height="55" align="center" valign="middle"> 
      <div align="center">
       
       <% 

'Database Connection String; 
'Server.MapPath = the location of the database on the server
'please change the path to the correct path on your server
Set objADO = Server.CreateObject("ADODB.Connection")
sDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db\fsboREplus.mdb") & ";"	
objADO.Open sDSN

'Contact Variables; Used in contact.asp  and other pages that contain the contact info.
'These variables are pulled from the table TblConfig and these values can
'be edited through the site admin control panel. Do not edit the values in this page.

		' Create a recordset object to store specific table information
		Set objConfig = Server.CreateObject("ADODB.Recordset")
		
		'Establish what records you want selected for the SQL query string
		SQL = "Select * From TblConfig"

		'Set the recordset object equal to the SQL query string
		objConfig.Open SQL, objADO, 1, 3

strVarCompany = objConfig("Company")
strVarAddress = objConfig("CompanyAddress")
strVarCity = objConfig("CompanyCity")
strVarState = objConfig("CompanyState")
strVarZip = objConfig("CompanyZip")
strVarCountry = objConfig("CompanyCountry")
strVarEmail = objConfig("CompanyEmail")
strVarPhone = objConfig("CompanyPhone")
strVarFax = objConfig("CompanyFax")
strVarMainContact = objConfig("CompanyContact")
strVarWebsite = objConfig("CompanyWebsite")
strVarBGColor = objConfig("BGColor")
strSlogan = objConfig("Slogan")
strOfferAdvertising = objConfig("OfferAdvertising")
str1000ImpressionsAdCost = objConfig("1000ImpressionsCost")
str5000ImpressionsAdCost = objConfig("5000ImpressionsCost")
str10000ImpressionsAdCost = objConfig("10000ImpressionsCost")
str50000ImpressionsAdCost = objConfig("50000ImpressionsCost")
str100000ImpressionsAdCost = objConfig("100000ImpressionsCost")
strServiceType = objConfig("ServiceType")
strServiceAdCost = objConfig("ServiceAdCost")
strAgentList = objConfig("AgentList")
strLogo = objConfig("logo")
strKeywords = objConfig("Keywords")
strMetaDescription = objConfig("MetaDescription")


'PAYPAL VARIABLES - See PaypalCode.doc located in the documentation folder
'These variables are pulled from the table TblConfig and these values can
'be edited through the site admin control panel. Do not edit the values in this page.
'Email address the payment should be sent to
	strPayPalEmail = objConfig("PayPalEmail")

strAgentFeatured1MonthCost = objConfig("AgentFeatured1MonthCost")
strAgentFeatured3MonthCost = objConfig("AgentFeatured3MonthCost")
strAgentFeatured6MonthCost = objConfig("AgentFeatured6MonthCost")
strAgentFeatured12MonthCost = objConfig("AgentFeatured12MonthCost")
strAgentStandard1MonthCost = objConfig("AgentStandard1MonthCost")
strAgentStandard3MonthCost = objConfig("AgentStandard3MonthCost")
strAgentStandard6MonthCost = objConfig("AgentStandard6MonthCost")
strAgentStandard12MonthCost = objConfig("AgentStandard12MonthCost")

strUserFeatured1MonthCost = objConfig("UserFeatured1MonthCost")
strUserFeatured3MonthCost = objConfig("UserFeatured3MonthCost")
strUserFeatured6MonthCost = objConfig("UserFeatured6MonthCost")
strUserFeatured12MonthCost = objConfig("UserFeatured12MonthCost")
strUserStandard1MonthCost = objConfig("UserStandard1MonthCost")
strUserStandard3MonthCost = objConfig("UserStandard3MonthCost")
strUserStandard6MonthCost = objConfig("UserStandard6MonthCost")
strUserStandard12MonthCost = objConfig("UserStandard12MonthCost")

'Description of the service to appear on the Featured Listing receipt
	strFeaturedAdDescription = "Featured Listing on " & strVarWebsite 
	
'Description of the service to appear on the Regular Listing receipt
	strStandardAdDescription = "Standard Listing on " & strVarWebsite 
	
'Description of the service to appear on the Upgrade Listing receipt
	strUpgradeAdDescription = "Upgrade Listing on " & strVarWebsite 
'Cost you want to charge for the listing
	strUpgradeAdCost = objConfig("UpgradeAdCost")		

'whether ads are paid or free	
strListingType = objConfig("ListingType")		

'Page that the user should return to after making payment for featured ad; 
'They should return to page step1F.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1F.asp
	strPayPalReturnPageFeatured =  strVarWebsite + "/featuredsuccess.asp" 
	
'Page that the user should return to after making payment for regular ad; 
'They should return to page step1.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1.asp
	strPayPalReturnPageRegular =  strVarWebsite + "/standardsuccess.asp" 	
	
'Page that the user should return to after making payment for regular ad; 
'They should return to page step1.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1.asp
	strPayPalReturnPageUpgrade =  strVarWebsite + "/upgradesuccess.asp" 	

'Page that the user should return to if cancelling before completing PayPal payment; 
'They should return to page cancel.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/cancel.asp
	strPayPalCancel = strVarWebsite + "/cancel.asp"


	
	
%>

<%
Sub CreateRoomCombo(iCount)%>
	
		<select name="RoomID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Room --- </option>
			<%sRoomField = "REListingRoom" & iCount & "ID"
			rsRERoom.MoveFirst
			Do While Not rsRERoom.EOF%>
			<option value="<%=rsRERoom("RERoomID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sRoomField) = rsRERoom("RERoomID") Then Response.Write " SELECTED"
			End If%>><%=rsRERoom("RERoomName")%></option>
			<%rsRERoom.MoveNext
			Loop%>
		</select><%	
End Sub

Sub CreateFlooringCombo(iCount)%>
	
		<select name="FlooringID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Flooring --- </option>
			<%sFlooringField = "REListingFlooring" & iCount & "ID"
			rsREFlooring.MoveFirst
			Do While Not rsREFlooring.EOF%>
			<option value="<%=rsREFlooring("REFlooringID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sFlooringField) = rsREFlooring("REFlooringID") Then Response.Write " SELECTED"
			End If%>><%=rsREFlooring("REFlooringName")%></option>
			<%rsREFlooring.MoveNext
			Loop%>
		</select>
	<%
End Sub


' Formats a given 10 digit number into a nice looking phone number
' Example: given strNumber of 8005551212 you get (800) 555-1212
Function FormatPhoneNumber(strNumber)
	Dim strInput       ' String to hold our entered number
	Dim strTemp        ' Temporary string to hold our working text
	Dim strCurrentChar ' Var for storing each character for eval.
	Dim I	           ' Looping var
	
	' Uppercase all characters for consistency
	strInput = UCase(strNumber)

	' To be able to handle some pretty bad formatting, strip out
	' all characters except for chars A to Z and digits 0 to 9
	' before proceeding.  I left in the chars for slogan
	' numbers like 1-800-GET-CASH etc...
	For I = 1 To Len(strInput)
		strCurrentChar = Mid(strInput, I, 1)
		' Numbers (0 to 9)
		If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then
			strTemp = strTemp & strCurrentChar
		End If 
		' Upper Case Chars (A to Z)
		If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then
			strTemp = strTemp & strCurrentChar
		End If 
	Next 'I
	
	' Swap strTemp back to strInput for next set of validation
	strInput = strTemp
	strTemp = ""
	
	' Remove leading 1 if applicable
	If Len(strInput) = 11 And Left(strInput, 1) = "1" Then
		strInput = Right(strInput, 10)
	End If
	
	' Error catch to make sure strInput is proper length now that
	' we've finished manipulating it.
	If Not Len(strInput) = 10 Then
		' Handle errors.
		Err.Raise 1, "FormatPhoneNumber function", _
			"The phone number to be formatted must be a valid 10 digit US phone number!"
	End If
	
	' If an error occurred then the rest of this won't get processed.

	' Build the output formatted string
	' (xxx) xxx-xxxx
	strTemp = "("                             ' "("
	strTemp = strTemp & Left(strInput, 3)     ' Area code
	strTemp = strTemp & ") "                  ' ") "
	strTemp = strTemp & Mid(strInput, 4, 3)   ' Exchange
	strTemp = strTemp & "-"                   ' "-"
	strTemp = strTemp & Right(strInput, 4)    ' 4 digit part

	' Set return value
	FormatPhoneNumber = strTemp
End Function


sub openrs(rs, sql)
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.CursorLocation = adUseServer
  rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
end sub

function ToHTML(strValue)

  if IsNull(strValue) then 
    ToHTML = ""
  else
    ToHTML = Server.HTMLEncode(strValue)
  end if

end function

function ToURL(strValue)
  if IsNull(strValue) then strValue = ""
  ToURL = Server.URLEncode(strValue)
end function

function GetValueHTML(rs, strFieldName)
  GetValueHTML = ToHTML(GetValue(rs, strFieldName))
end function

function GetValue(rs, strFieldName)
  on error resume next
  if rs is nothing then
  	GetValue = ""
  elseif (not rs.EOF) and (strFieldName <> "") then
    res = rs(strFieldName)
    if isnull(res) then 
      res = ""
    end if
    GetValue = res
  else
    GetValue = ""
  end if
  if bDebug then response.write err.Description
end function

function GetParam(ParamName)
  if Request.QueryString(ParamName).Count > 0 then 
    Param = Request.QueryString(ParamName)
  elseif Request.Form(ParamName).Count > 0 then
    Param = Request.Form(ParamName)
  else 
    Param = ""
  end if
  if Param = "" then
    GetParam = Empty
  else
    GetParam = Param
  end if
end function

Function ToSQL(Value, sType)
  Param = Value
  if Param = "" then
    ToSQL = "Null"
  else
    if sType = "Number" then
      ToSQL = CDbl(Param)
    else
      ToSQL = "'" & Replace(Param, "'", "''") & "'"
    end if
  end if
end function

function DLookUp(Table, fName, sWhere)
  on error resume next
  Res = cn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value
  if IsNull(Res) then Res = ""
  DLookUp = Res
end function

function getCheckBoxValue(sVal, CheckedValue, UnCheckedValue, sType)
  if isempty(sVal) then
    if UnCheckedValue = "" then
      getCheckBoxValue = "Null"
    else
      if sType = "Number" then
        getCheckBoxValue = UnCheckedValue
      else
        getCheckBoxValue = "'" & Replace(UnCheckedValue, "'", "''") & "'"
      end if
    end if
  else
    if CheckedValue = "" then
      getCheckBoxValue = "Null"
    else
      if sType = "Number" then
        getCheckBoxValue = CheckedValue
      else
        getCheckBoxValue = "'" & Replace(CheckedValue, "'", "''") & "'"
      end if
    end if
  end if
end function

function getValFromLOV(sVal, aArr)
  sRes = ""

  if (ubound(aArr) mod 2) = 1 then
    for i = 0 to ubound(aArr) step 2
      if cstr(sVal) = cstr(aArr(i)) then sRes = aArr(i+1)
    next
  end if

  getValFromLOV = sRes  
end function


function get_options(sql,is_search,is_required,selected_value)
  options_str=""
  if is_search then
    options_str=options_str&"<option value="""">All</option>"
  else
    if is_required then options_str=options_str&"<option value=""""></option>"
  end if
  
  openrs tmprs,sql
  while not tmprs.EOF
    id=GetValue(tmprs, 0)
    value=GetValue(tmprs, 1)
    selected=""
    if CStr(id) = CStr(selected_value) then
			selected = "SELECTED"
		end if
    options_str = options_str & "<option value="""&id&""" "&selected&">"&value&"</option>"
		tmprs.MoveNext
  wend
  get_options = options_str
end function


Function ProceedError()
  if cn.Errors.Count > 0 then
    ProceedError = cn.Errors(0).Description & " (" & cn.Errors(0).Source & ")"
  elseif not (Err.Description = "") then
    ProceedError = Err.Description
  else
    ProceedError = ""
  end if
end Function


function CheckSecurity(iLevel)
  if Session("UserID") = "" then
    response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME")))
  else
    if CLng(Session("UserRights")) < CLng(iLevel) then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) 
  End if
end function

%>


<%
TodayDate = Now()
TodayDate = FormatDateTime(TodayDate, VBShortDate)

Set RS=Server.CreateObject("ADODB.RecordSet")
SQL = vbNullString
SQL = SQL & "UPDATE Clients "
SQL = SQL & "SET Status='DontShow' WHERE ImpPur < ImpNow"
objADO.execute(SQL)
Set RS = Nothing 


Set RS=Server.CreateObject("ADODB.RecordSet")
Query = "SELECT * FROM Clients WHERE Status='Show' AND StartDate <= #" & TodayDate & "#"
RS.Open Query, objADO, 3, 3
IF (RS.EOF) THEN
ShowBanner = "default"
%>

<%
Else
rndMax = CInt(RS.RecordCount)
RS.MoveFirst
Do While Not RS.EOF
RS.MoveNext
Loop
RS.MoveFirst
Randomize Timer
rndNumber = Int(RND * rndMax)
RS.Move rndNumber
Id = RS("AdID")
UrlTo = RS("LinkTo")
GetImg = RS("ImgUrl")
WriteSize1 = RS("SizeOf1")
WriteSize2 = RS("SizeOf2")
DisText = RS("TextUnder")
ImpNow = RS("ImpNow")
ImpNewNow = ImpNow + 1
Set RS = Nothing 


Set RS=Server.CreateObject("ADODB.RecordSet")
SQL = vbNullString
SQL = SQL & "UPDATE Clients "
SQL = SQL & "SET ImpNow="&ImpNewNow&" WHERE AdID="&Id&""
objADO.execute(SQL)
Set RS = Nothing 

End If
%> <a href="redirect.asp?Id=<%=Id%>&Url=<%=Server.UrlEncode(UrlTo)%>"><img src="<%=GetImg%>" border="0" alt="<%=DisText%>" align="center"></a>
       
       </div>
    </TD>
  </TR>
  <TR> 
    <TD COLSPAN=8 height="12"></TD>
  </TR>
  <TR> 
    <TD COLSPAN=8> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="23" background="images/bar2.gif">
        <tr> 
          <td> 
            <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
              <a href="home.asp">Home</a> | 
               <a href="sellers.asp">Get Listed!</a>
        | 
              <% if strUserName = "" then %> 
             
              <a href="registermenu.asp"> 
              
              Create An Account</a>
              
              | 
             <% end if %>
              
              
              <% if strUserName = "" then %>
              <a href="Login.asp">Member Login</a>
              <% end if %>
              
              <% if strUserName <> "" then %>
              <a href="Logout.asp">Logout</a>
              <% end if %>
              
              | 
               
              <!--  <a href="specials.asp">Pricing Info</a>
               
                           
              
               | -->
             
             
              
              <% if strUserName <> "" then %>
               <a href="menu.asp">
              Control Panel
              
              </a>  |
              <% end if %>
               
              
                <a href="Search.asp">Search Listings</a> 
               
                 | <a href="featured.asp">View Featured </a> 
                
                | <a href="viewlast.asp">Newest Properties</a>
                
                
                 | <a href="Testimonials.asp">Testimonials</a>
               
               
                
              </font></div>
          </td>
        </tr>
      </table>
    </TD>
  </TR>
  <TR bgcolor="E0E1BE"> 
    <TD COLSPAN=8 height="9"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="21" background="images/bar3.gif"> 
            <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
            
       
          <a href="sellertools.asp">Seller Tools</a>  
          |
           <a href="buyers.asp">Buyer Tools</a> 
          
      
        | <a href="agentsearch.asp">Find An Agent</a>   
        
        | <a href="Searchservices.asp">Services Directory</a>  
        
        
        
       |
            
            <a href="mortgagecenter.asp">Mortgage Center</a>  
            
          <% if strOfferAdvertising = "Yes" then %>
        
         | <a href="advertising.asp">Advertising</a> 
        <% end if %>
        
         | <a href="news_default.asp">News</a>
        
        
        |  
          <a href="aboutus.asp">About Us</a> | 
            
            
           <a href="contact.asp">Contact
             </a>
             
            
             
              </font></div>
          </td>
        </tr>
      </table>
      
      



<%
Function WriteUploadedFile(psUpload, psPath)
	'Response.Write "psUpload=" & psUpload & "<br>"
	Set lojbFile = oUpload(psUpload)
	' parse the file name
	lsFileName = lojbFile.FileName
	If Len(Trim(lsFileName)) < 1 Then Exit Function
	If InStrRev(lsFileName, "\") > 0 Then lsFileName = Mid(lsFileName, InStrRev(lsFileName, "\") + 1)
	
	WriteUploadedFile = lsFileName
	If Not InStr(lsFileName, "\") = 0 Then
		lsFileName = Mid(lsFileName, InStrRev(lsFileName, "\") + 1)
	End If
	' Convert the binary data to Ascii
	bytBinaryData = lojbFile.BinaryData
	nLength = LenB(bytBinaryData)
	For nIndex = 1 To nLength
		sNewData = sNewData & Chr(AscB(MidB(bytBinaryData, nIndex, 1)))
	Next
	' Save the file to the file system
	psPath = Server.MapPath(psPath)
	If Not Right(psPath, 1) = "\" Then psPath = psPath & "\"
	'Response.Write "psPath=" & psPath & "<br>"
	'Response.Write "lsFileName=" & lsFileName & "<br>"

Set lobjFSO = Server.CreateObject("Scripting.FileSystemObject")
'If lobjFSO.FileExists(psPath & lsFileName) Then
lsFileName = session("UserName") & "_" & lsFileName
'Response.Write lsFileName
'end if 
	
	lobjFSO.OpenTextFile(psPath & lsFileName, 2, True).Write sNewData
	'Set lobjFSO = Nothing
	'Set lobjFile = Nothing
 
End Function

' ------------------------------------------------------------------------------
' Container of Field Properties
Class clsField
	Public FileName
	Public ContentType
	Public Value
	Public FieldName
	Public Length
	Public BinaryData
End Class
' ------------------------------------------------------------------------------
Class clsUpload
' ------------------------------------------------------------------------------
	Private nFieldCount
	Private oFields()
	
' ------------------------------------------------------------------------------
	Public Property Get Count()
		Count = nFieldCount
	End Property
' ------------------------------------------------------------------------------
	Public Default Property Get Field(ByRef asFieldName)
		Dim lnLength
		Dim lnIndex
		
		lnLength = UBound(oFields)
		
		If IsNumeric(asFieldName) Then
			If lnLength >= asFieldName And asFieldName > -1 Then
				Set Field = oFields(asFieldName)
			Else
				Set Field = New clsField
			End If
		Else
			For lnIndex = 0 To lnLength
				If LCase(oFields(lnIndex).FieldName) = LCase(asFieldName) Then
					Set Field = oFields(lnIndex)
					Exit Property
				End If
			Next
			Set Field = New clsField
		End If
	End Property
' ------------------------------------------------------------------------------
	Public Function Exists(ByRef avKeyIndex)
		Exists = Not IndexOf(avKeyIndex) = -1
	End Function
' ------------------------------------------------------------------------------
	Public Property Get ValueOf(ByRef avKeyIndex)
		Dim lnIndex
		lnIndex = IndexOf(avKeyIndex)
		if lnIndex = -1 Then Exit Property
		ValueOf = oFields(lnIndex).Value
	End Property
' ------------------------------------------------------------------------------
	Public Property Get FileNameOf(ByRef avKeyIndex)
		Dim lnIndex
		lnIndex = IndexOf(avKeyIndex)
		if lnIndex = -1 Then Exit Property
		FileNameOf = oFields(lnIndex).FileName
	End Property
' ------------------------------------------------------------------------------
	Public Property Get LengthOf(ByRef avKeyIndex)
		Dim lnIndex
		lnIndex = IndexOf(avKeyIndex)
		if lnIndex = -1 Then Exit Property
		LengthOf = oFields(lnIndex).LengthOf
	End Property
' ------------------------------------------------------------------------------
	Public Property Get BinaryDataOf(ByRef avKeyIndex)
		Dim lnIndex
		lnIndex = IndexOf(avKeyIndex)
		if lnIndex = -1 Then Exit Property
		BinaryDataOf = oFields(lnIndex).BinaryData
	End Property
' ------------------------------------------------------------------------------
	Private Function IndexOf(ByVal avKeyIndex)
		Dim lnIndex
		If IsNumeric(asFieldName) Then
			avKeyIndex = CLng(avKeyIndex)
			If nFieldCount > avKeyIndex And avKeyIndex > -1 Then
				IndexOf = avKeyIndex
			Else
				IndexOf = -1
			End If
		Else
			For lnIndex = 0 To nFieldCount - 1
				If LCase(oFields(lnIndex).FieldName) = LCase(avKeyIndex) Then
					IndexOf = lnIndex
					Exit Function
				End If
			Next
			IndexOf = -1
		End If
	End Function
' ------------------------------------------------------------------------------
	Public Property Get ContentTypeOf(ByRef avKeyIndex)
		Dim lnIndex
		lnIndex = IndexOf(avKeyIndex)
		if lnIndex = -1 Then Exit Property
		ContentTypeOf = oFields(lnIndex).ContentType
	End Property
' ------------------------------------------------------------------------------
	Private Sub Class_Terminate()
		For lnIndex = 0 To nFieldCount - 1
			Set oFields(0) = Nothing
		Next
	End Sub
' ------------------------------------------------------------------------------
	Private Sub Class_Initialize()
		
		Dim lnBytes				' Bytes received from the client
		Dim lnByteCount			' Number of bytes received
		Dim lnStartPosition		' Position at which content begins
		Dim lnEndPosition		' Position at which content ends
		
		Dim loDic				' Contains properties of each
								' specific field
								' Local dictionary object(s) 
								' to be appended to class-scope
								' dictioary object.
								
		Dim lnBoundaryBytes		' Bytes contained within the current boundary
		Dim lnBoundaryStart		' Position at wich the current boundary begins
								' within the lnBytes binary data.
		Dim lnBoundaryEnd		' Position at wich the current boundary ends
								' within the lnBytes binary data.
		Dim lnDispositionPosition
		
		Dim lsFieldName			' Name of the current field being parsed from
								' Binary Data
		Dim lsFileName			' Name of the file within the current boundary
		Dim lnFileNamePosition	' Location of file name within current boundary
		
		' Initialize Fields
		nFieldCount = 0
		ReDim oFields(-1)
		
		' Read the bytes (binary data) into memory	
		lnByteCount = Request.TotalBytes
		lnBytes = Request.BinaryRead(lnByteCount)
		
		'Get the lnBoundaryBytes
		lnStartPosition = 1
		lnEndPosition = InstrB(lnStartPosition, lnBytes, CStrB(vbCr))
		
		lnBoundaryBytes = MidB(lnBytes, lnStartPosition, lnEndPosition - lnStartPosition)
		
		lnBoundaryStart = InstrB(1, lnBytes, lnBoundaryBytes)
		
		
		' Loop until the BoundaryBytes begin with "--"
		Do Until (lnBoundaryStart = InstrB(lnBytes, lnBoundaryBytes & CStrB("--")))
		
			' All data within this boundary is stored within a local dictionary
			' to be appended to the class-scope dictionary.
			
			ReDim Preserve oFields(nFieldCount)
			nFieldCount = nFieldCount + 1
			
			Set loField = New clsField

			lnDispositionPosition = InstrB(lnBoundaryStart, lnBytes, CStrB("Content-Disposition"))
			
			' Get an object name
			lnStartPosition = InstrB(lnDispositionPosition, lnBytes, CStrB("name=")) + 6
			lnEndPosition = InstrB(lnStartPosition, lnBytes, CStrB(""""))
			lsFieldName = CStrU(MidB(lnBytes, lnStartPosition, lnEndPosition - lnStartPosition))
			loField.FieldName = lsFieldName
			
			' Get the location fo the file name.
			lnFileNamePosition = InstrB(lnBoundaryStart, lnBytes, CStrB("filename="))
			lnBoundaryEnd = InstrB(lnEndPosition, lnBytes, lnBoundaryBytes)
			
			'Test if object is a file
			If Not lnFileNamePosition = 0 And lnFileNamePosition < lnBoundaryEnd Then
			
				' Parse Filename
				lnStartPosition = lnFileNamePosition + 10
				lnEndPosition =  InstrB(lnStartPosition, lnBytes, CStrB(""""))
				lsFileName = CStrU(MidB(lnBytes,lnStartPosition,lnEndPosition-lnStartPosition))
				loField.FileName = lsFileName				
				
				' Parse Content-Type
				lnStartPosition = InstrB(lnEndPosition,lnBytes,CStrB("Content-Type:")) + 14
				lnEndPosition = InstrB(lnStartPosition,lnBytes,CStrB(vbCr))
				ContentType = CStrU(MidB(lnBytes,lnStartPosition,lnEndPosition-lnStartPosition))
				loField.ContentType = ContentType

				' Parse Content
				lnStartPosition = lnEndPosition + 4
				lnEndPosition = InstrB(lnStartPosition,lnBytes,lnBoundaryBytes)-2
				Value = MidB(lnBytes,lnStartPosition,lnEndPosition-lnStartPosition)
				loField.BinaryData = Value & CStrB(vbNull)
				loField.Length = LenB(Value)
			Else

				' Parse Content
				lnStartPosition = InstrB(lnDispositionPosition, lnBytes, CStrB(vbCr)) + 4
				lnEndPosition = InstrB(lnStartPosition, lnBytes, lnBoundaryBytes) - 2
				Value = CStrU(MidB(lnBytes,lnStartPosition,lnEndPosition-lnStartPosition))
				loField.Value = Value
				loField.Length = Len(Value)
			End If

			Set oFields(UBound(oFields)) = loField

			'Loop to next object
			lnBoundaryStart = InstrB(lnBoundaryStart + LenB(lnBoundaryBytes), lnBytes, lnBoundaryBytes)
			
			Set loField = Nothing
			
		Loop

	End Sub
' ------------------------------------------------------------------------------
	Private Function CStrU(ByRef psByteString)
		Dim lnLength
		Dim lnPosition
		lnLength = LenB(psByteString)
		For lnPosition = 1 To lnLength
			CStrU = CStrU & Chr(AscB(MidB(psByteString, lnPosition, 1)))
		Next
	End Function
' ------------------------------------------------------------------------------
	Private Function CStrB(ByRef psUnicodeString)
		Dim lnLength
		Dim lnPosition
		lnLength = Len(psUnicodeString)
		For lnPosition = 1 To lnLength
			CStrB = CStrB & ChrB(AscB(Mid(psUnicodeString, lnPosition, 1)))
		Next
	End Function
' ------------------------------------------------------------------------------
End Class
' ------------------------------------------------------------------------------
%>
<%
Function ImageResize(sImageName, iMaxWidth, iMaxHeight)
	Dim iMaxX, iMaxY, iNewX, iNewY, bResize

	Set objImage = Server.CreateObject("AspImage.Image")

	objImage.LoadImage sImageName
	objImage.ImageFormat = 1
	objImage.JPEGQuality = 95

	bResize = False
	iNewX = 0
	iNewY = 0

	iMaxX = objImage.MaxX
	iMaxY = objImage.MaxY

	If iMaxX > iMaxWidth Then
		bResize = True
		iPercent = iMaxWidth / iMaxX
		iNewX = iMaxWidth
		iNewY = iPercent * iMaxY
		If iNewY > iMaxHeight Then
			iPercent = iMaxHeight / iMaxY
			iNewX = iPercent * iMaxX
			iNewY = iMaxHeight
		End If
	End If

	If iNewY < 1 And iMaxY > iMaxHeight Then
		bResize = True
		iPercent = iMaxHeight / iMaxY
		iNewX = iPercent * iMaxX
		iNewY = iMaxHeight
	End If

	If bResize Then
		objImage.Resize iNewX, iNewY

		If UCase(Right(sImageName, 3)) = "GIF" Then sImageName = Left(sImageName, Len(sImageName) - 3) & "jpg"

		objImage.FileName = sImageName
		objImage.SaveImage
	End If

	ImageResize = sImageName

	Set objImage = Nothing
End Function

%>

<% lDelete = Request("ID")

strAccessLevel = session("AccessLevel")

Action = request("Action")

if lDelete = "" then
msg = "<br>You must select a listing to delete."

end if 

if msg = "" then 
sSQL = "SELECT * FROM (REFlooring RIGHT JOIN (RERoom RIGHT JOIN (REExterior RIGHT JOIN"
sSQL = sSQL & " (REAC RIGHT JOIN (((((REHeat RIGHT JOIN (REGarage RIGHT JOIN"
sSQL = sSQL & " (REDriveway RIGHT JOIN REListing ON REDriveway.REDrivewayID = REListing.REDrivewayID)"
sSQL = sSQL & " ON REGarage.REGarageID = REListing.REGarageID) ON REHeat.REHeatID = REListing.REHeatID)"
sSQL = sSQL & " LEFT JOIN RERoof ON REListing.RERoofID = RERoof.RERoofID) LEFT JOIN"
sSQL = sSQL & " RESewer ON REListing.RESewerID = RESewer.RESewerID) LEFT JOIN"
sSQL = sSQL & " REStyle ON REListing.REStyleID = REStyle.REStyleID) LEFT JOIN"
sSQL = sSQL & " REWater ON REListing.REWaterID = REWater.REWaterID) ON REAC.REACID = REListing.REACID)"
sSQL = sSQL & " ON REExterior.REExteriorID = REListing.REExteriorID)"
sSQL = sSQL & " ON (RERoom.RERoomID = REListing.REListingRoom8ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom7ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom6ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom5ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom4ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom3ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom2ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom1ID))"
sSQL = sSQL & " ON (REFlooring.REFlooringID = REListing.REListingFlooring8ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring7ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring6ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring5ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring4ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring3ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring2ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring1ID))"
sSQL = sSQL & " WHERE REListingID=" & lDelete

Set rsRealEstate = objADO.Execute(sSQL)

'Used to dynamically display school info
strStateName = rsRealEstate("REListingState")

SQL = "SELECT * FROM TblStates where StateName = '" + strStateName + "'"

Set rsState = Server.CreateObject("ADODB.Recordset")
rsState.Open SQL, objADO, 3, 3



sSQL = "SELECT * FROM RERoom ORDER BY RERoomID"
Set rsRoom = objADO.Execute(sSQL)
	Do While Not rsRoom.EOF
		n = n + 1
		ReDim Preserve lRoomID(n), sRoomName(n)
		lRoomID(n) = rsRoom("RERoomID")
		sRoomName(n) = rsRoom("RERoomName")
	rsRoom.MoveNext
	Loop

n = 0

sSQL = "SELECT * FROM REFlooring ORDER BY REFlooringID"
Set rsFlooring = objADO.Execute(sSQL)
	Do While Not rsFlooring.EOF
		n = n + 1
		ReDim Preserve lFlooringID(n), sFlooringName(n)
		lFlooringID(n) = rsFlooring("REFlooringID")
		sFlooringName(n) = rsFlooring("REFlooringName")
	rsFlooring.MoveNext
	Loop

Function GetRoomName(n)
	For iCount = 1 to UBound(lRoomID)
		If n = lRoomID(iCount) Then
			GetRoomName = sRoomName(iCount)
			Exit Function
		End If
	Next
End Function

Function GetFlooringName(n)
	For iCount = 1 to UBound(lFlooringID)
		If n = lFlooringID(iCount) Then 
			GetFlooringName = sFlooringName(iCount)
			Exit Function
		End If
	Next
End Function

end if 

%>




  <%


	
	strMailSubmit = request("cmdMailSubmit")
	strSearchId = request("cmdSearchId")
	strEmail = request("txtEmail")
	strSiteId = request("txtSiteId")
	
'This code only runs if the submit button is clicked
if Request.Form <> "" and strSearchId <> "" then 
		if strSiteId = "" then
			SiteIdmsg = "You must enter a site id to search."
		end if 
		
		if SiteIdmsg = "" then 
		' Create a recordset object to store specific table information
		Set objSearch = Server.CreateObject("ADODB.Recordset")
		
		'Establish what records you want selected for the SQL query string
		SQL = "Select * From REListing where REListingId=" & strSiteId

		'Set the recordset object equal to the SQL query string
		objSearch.Open SQL, objADO, 1, 3
		
		if objSearch.EOF then
		SiteIdmsg = "<font size='3'>Site Id " & strSiteId & " does not exist in our database. Please try again."
		else
		Response.Redirect "detail.asp?Id=" & strSiteId
		end if 

		end if 
end if 





if Request.Form <> "" and strMailSubmit <> "" then
	if strEmail = "" then
		strMailWarning = "You must type an email address to join our mailing list."
	end if 
	
	'Make sure a valid email address
	if strEmail <> "" and (instr( strEmail, "@") = 0  or instr( strEmail, ".") = 0) then
		strMailWarning = "<br>Email Address must be in the form account@server.com."
	end if 
		
	if strMailWarning = "" then
		' Create a recordset object to store specific table information
		Set objEmail = Server.CreateObject("ADODB.Recordset")
		
		'Establish what records you want selected for the SQL query string
		SQL = "Select * From TblEmail where (EmailAddress = '" + strEmail +  "')"

		'Set the recordset object equal to the SQL query string
		objEmail.Open SQL, objADO, 1, 3	
	 
	
		if objEmail.EOF then
			objEmail.addnew
			objEmail("EmailAddress") = strEmail
			objEmail("DateAdded") = Date()
			objEmail.update
			strMailWarning ="<br>Your email address has been sucessfully added to our mailing list."
		
			'Mail STATING you hate to see them go and link if they want to subscribe again.
	' Create a recordset object to store specific table information
		
	strSubject = strVarCompany & " Mail Subscription Request" 
	
	
	strBody = strBody + "Your email address has been successfully added to our mailing list." &vbcrlf
	strBody = strBody + "Thank you for being a subscriber." & vbcrlf
	strBody = strBody + "To unsubscribe, use the url " & strVarWebsite & "." & vbcrlf
		
	strBody = strBody + "Again thank you for being a subscriber."
	
	Set objNewMail = Server.CreateObject("CDONTS.NewMail")
						objNewMail.From = strVarEmail
						objNewMail.To = strEmail
						objNewMail.Subject = strSubject
						objNewMail.BodyFormat = 1
						'objNewMail.MailFormat = 1
						objNewMail.Body = strBody
						objNewMail.Send()
		
		
		else
			strMailWarning = "<br>That Email Address already joined our mailing list."		
		end if 
	
	end if
end if 

%>
  
  </TD>
  </TR>
  <TR> 
    <TD COLSPAN=8 height="13"></TD>
  </TR>
  <TR> 
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=83 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=150 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=31 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=90 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=138 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=246 HEIGHT=1 ALT=""></TD>
  </TR>
</TABLE>

<table width=740 border=0 cellpadding=0 cellspacing=0  >
      
    <tr> 
    <td width="210" colspan=2 bgcolor="E0E1BE" valign="top"  align="center"> 
     
      <table width="230" border="0" cellspacing="3" cellpadding="3" align="center">
      
      <tr> 
    <td colspan=2 valign="top" align="center"> <img src="images/content_image3.jpg" alt="">
    
    </td>
    </TR>
    
        <tr> 
          <td height="19" valign="top" bgcolor="#999966" align="center"><font color="#FFFFFF"><b>FEATURED PROPERTY LISTINGS</b></font></td>
        </tr>


        
        <tr>
          <td height="222" valign="top" align="center"> 
            <FONT face=arial color=#000000 size=1>Feature your property on our site 
and <font color=red>sell fast</font>! <br><a href=sellers.asp><u><font size=1>Click Here</font></u></a> to find out how.
 </FONT>     
          
        <center>    
   
  
   <% 

'Database Connection String; 
'Server.MapPath = the location of the database on the server
'please change the path to the correct path on your server
Set objADO = Server.CreateObject("ADODB.Connection")
sDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db\fsboREplus.mdb") & ";"	
objADO.Open sDSN

'Contact Variables; Used in contact.asp  and other pages that contain the contact info.
'These variables are pulled from the table TblConfig and these values can
'be edited through the site admin control panel. Do not edit the values in this page.

		' Create a recordset object to store specific table information
		Set objConfig = Server.CreateObject("ADODB.Recordset")
		
		'Establish what records you want selected for the SQL query string
		SQL = "Select * From TblConfig"

		'Set the recordset object equal to the SQL query string
		objConfig.Open SQL, objADO, 1, 3

strVarCompany = objConfig("Company")
strVarAddress = objConfig("CompanyAddress")
strVarCity = objConfig("CompanyCity")
strVarState = objConfig("CompanyState")
strVarZip = objConfig("CompanyZip")
strVarCountry = objConfig("CompanyCountry")
strVarEmail = objConfig("CompanyEmail")
strVarPhone = objConfig("CompanyPhone")
strVarFax = objConfig("CompanyFax")
strVarMainContact = objConfig("CompanyContact")
strVarWebsite = objConfig("CompanyWebsite")
strVarBGColor = objConfig("BGColor")
strSlogan = objConfig("Slogan")
strOfferAdvertising = objConfig("OfferAdvertising")
str1000ImpressionsAdCost = objConfig("1000ImpressionsCost")
str5000ImpressionsAdCost = objConfig("5000ImpressionsCost")
str10000ImpressionsAdCost = objConfig("10000ImpressionsCost")
str50000ImpressionsAdCost = objConfig("50000ImpressionsCost")
str100000ImpressionsAdCost = objConfig("100000ImpressionsCost")
strServiceType = objConfig("ServiceType")
strServiceAdCost = objConfig("ServiceAdCost")
strAgentList = objConfig("AgentList")
strLogo = objConfig("logo")
strKeywords = objConfig("Keywords")
strMetaDescription = objConfig("MetaDescription")


'PAYPAL VARIABLES - See PaypalCode.doc located in the documentation folder
'These variables are pulled from the table TblConfig and these values can
'be edited through the site admin control panel. Do not edit the values in this page.
'Email address the payment should be sent to
	strPayPalEmail = objConfig("PayPalEmail")

strAgentFeatured1MonthCost = objConfig("AgentFeatured1MonthCost")
strAgentFeatured3MonthCost = objConfig("AgentFeatured3MonthCost")
strAgentFeatured6MonthCost = objConfig("AgentFeatured6MonthCost")
strAgentFeatured12MonthCost = objConfig("AgentFeatured12MonthCost")
strAgentStandard1MonthCost = objConfig("AgentStandard1MonthCost")
strAgentStandard3MonthCost = objConfig("AgentStandard3MonthCost")
strAgentStandard6MonthCost = objConfig("AgentStandard6MonthCost")
strAgentStandard12MonthCost = objConfig("AgentStandard12MonthCost")

strUserFeatured1MonthCost = objConfig("UserFeatured1MonthCost")
strUserFeatured3MonthCost = objConfig("UserFeatured3MonthCost")
strUserFeatured6MonthCost = objConfig("UserFeatured6MonthCost")
strUserFeatured12MonthCost = objConfig("UserFeatured12MonthCost")
strUserStandard1MonthCost = objConfig("UserStandard1MonthCost")
strUserStandard3MonthCost = objConfig("UserStandard3MonthCost")
strUserStandard6MonthCost = objConfig("UserStandard6MonthCost")
strUserStandard12MonthCost = objConfig("UserStandard12MonthCost")

'Description of the service to appear on the Featured Listing receipt
	strFeaturedAdDescription = "Featured Listing on " & strVarWebsite 
	
'Description of the service to appear on the Regular Listing receipt
	strStandardAdDescription = "Standard Listing on " & strVarWebsite 
	
'Description of the service to appear on the Upgrade Listing receipt
	strUpgradeAdDescription = "Upgrade Listing on " & strVarWebsite 
'Cost you want to charge for the listing
	strUpgradeAdCost = objConfig("UpgradeAdCost")		

'whether ads are paid or free	
strListingType = objConfig("ListingType")		

'Page that the user should return to after making payment for featured ad; 
'They should return to page step1F.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1F.asp
	strPayPalReturnPageFeatured =  strVarWebsite + "/featuredsuccess.asp" 
	
'Page that the user should return to after making payment for regular ad; 
'They should return to page step1.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1.asp
	strPayPalReturnPageRegular =  strVarWebsite + "/standardsuccess.asp" 	
	
'Page that the user should return to after making payment for regular ad; 
'They should return to page step1.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/step1.asp
	strPayPalReturnPageUpgrade =  strVarWebsite + "/upgradesuccess.asp" 	

'Page that the user should return to if cancelling before completing PayPal payment; 
'They should return to page cancel.asp under your domain; 
'http://www.yourdomain.com/FSBO Auto Folder/cancel.asp
	strPayPalCancel = strVarWebsite + "/cancel.asp"


	
	
%>

<%
Sub CreateRoomCombo(iCount)%>
	
		<select name="RoomID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Room --- </option>
			<%sRoomField = "REListingRoom" & iCount & "ID"
			rsRERoom.MoveFirst
			Do While Not rsRERoom.EOF%>
			<option value="<%=rsRERoom("RERoomID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sRoomField) = rsRERoom("RERoomID") Then Response.Write " SELECTED"
			End If%>><%=rsRERoom("RERoomName")%></option>
			<%rsRERoom.MoveNext
			Loop%>
		</select><%	
End Sub

Sub CreateFlooringCombo(iCount)%>
	
		<select name="FlooringID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Flooring --- </option>
			<%sFlooringField = "REListingFlooring" & iCount & "ID"
			rsREFlooring.MoveFirst
			Do While Not rsREFlooring.EOF%>
			<option value="<%=rsREFlooring("REFlooringID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sFlooringField) = rsREFlooring("REFlooringID") Then Response.Write " SELECTED"
			End If%>><%=rsREFlooring("REFlooringName")%></option>
			<%rsREFlooring.MoveNext
			Loop%>
		</select>
	<%
End Sub


' Formats a given 10 digit number into a nice looking phone number
' Example: given strNumber of 8005551212 you get (800) 555-1212
Function FormatPhoneNumber(strNumber)
	Dim strInput       ' String to hold our entered number
	Dim strTemp        ' Temporary string to hold our working text
	Dim strCurrentChar ' Var for storing each character for eval.
	Dim I	           ' Looping var
	
	' Uppercase all characters for consistency
	strInput = UCase(strNumber)

	' To be able to handle some pretty bad formatting, strip out
	' all characters except for chars A to Z and digits 0 to 9
	' before proceeding.  I left in the chars for slogan
	' numbers like 1-800-GET-CASH etc...
	For I = 1 To Len(strInput)
		strCurrentChar = Mid(strInput, I, 1)
		' Numbers (0 to 9)
		If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then
			strTemp = strTemp & strCurrentChar
		End If 
		' Upper Case Chars (A to Z)
		If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then
			strTemp = strTemp & strCurrentChar
		End If 
	Next 'I
	
	' Swap strTemp back to strInput for next set of validation
	strInput = strTemp
	strTemp = ""
	
	' Remove leading 1 if applicable
	If Len(strInput) = 11 And Left(strInput, 1) = "1" Then
		strInput = Right(strInput, 10)
	End If
	
	' Error catch to make sure strInput is proper length now that
	' we've finished manipulating it.
	If Not Len(strInput) = 10 Then
		' Handle errors.
		Err.Raise 1, "FormatPhoneNumber function", _
			"The phone number to be formatted must be a valid 10 digit US phone number!"
	End If
	
	' If an error occurred then the rest of this won't get processed.

	' Build the output formatted string
	' (xxx) xxx-xxxx
	strTemp = "("                             ' "("
	strTemp = strTemp & Left(strInput, 3)     ' Area code
	strTemp = strTemp & ") "                  ' ") "
	strTemp = strTemp & Mid(strInput, 4, 3)   ' Exchange
	strTemp = strTemp & "-"                   ' "-"
	strTemp = strTemp & Right(strInput, 4)    ' 4 digit part

	' Set return value
	FormatPhoneNumber = strTemp
End Function


sub openrs(rs, sql)
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.CursorLocation = adUseServer
  rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
end sub

function ToHTML(strValue)

  if IsNull(strValue) then 
    ToHTML = ""
  else
    ToHTML = Server.HTMLEncode(strValue)
  end if

end function

function ToURL(strValue)
  if IsNull(strValue) then strValue = ""
  ToURL = Server.URLEncode(strValue)
end function

function GetValueHTML(rs, strFieldName)
  GetValueHTML = ToHTML(GetValue(rs, strFieldName))
end function

function GetValue(rs, strFieldName)
  on error resume next
  if rs is nothing then
  	GetValue = ""
  elseif (not rs.EOF) and (strFieldName <> "") then
    res = rs(strFieldName)
    if isnull(res) then 
      res = ""
    end if
    GetValue = res
  else
    GetValue = ""
  end if
  if bDebug then response.write err.Description
end function

function GetParam(ParamName)
  if Request.QueryString(ParamName).Count > 0 then 
    Param = Request.QueryString(ParamName)
  elseif Request.Form(ParamName).Count > 0 then
    Param = Request.Form(ParamName)
  else 
    Param = ""
  end if
  if Param = "" then
    GetParam = Empty
  else
    GetParam = Param
  end if
end function

Function ToSQL(Value, sType)
  Param = Value
  if Param = "" then
    ToSQL = "Null"
  else
    if sType = "Number" then
      ToSQL = CDbl(Param)
    else
      ToSQL = "'" & Replace(Param, "'", "''") & "'"
    end if
  end if
end function

function DLookUp(Table, fName, sWhere)
  on error resume next
  Res = cn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value
  if IsNull(Res) then Res = ""
  DLookUp = Res
end function

function getCheckBoxValue(sVal, CheckedValue, UnCheckedValue, sType)
  if isempty(sVal) then
    if UnCheckedValue = "" then
      getCheckBoxValue = "Null"
    else
      if sType = "Number" then
        getCheckBoxValue = UnCheckedValue
      else
        getCheckBoxValue = "'" & Replace(UnCheckedValue, "'", "''") & "'"
      end if
    end if
  else
    if CheckedValue = "" then
      getCheckBoxValue = "Null"
    else
      if sType = "Number" then
        getCheckBoxValue = CheckedValue
      else
        getCheckBoxValue = "'" & Replace(CheckedValue, "'", "''") & "'"
      end if
    end if
  end if
end function

function getValFromLOV(sVal, aArr)
  sRes = ""

  if (ubound(aArr) mod 2) = 1 then
    for i = 0 to ubound(aArr) step 2
      if cstr(sVal) = cstr(aArr(i)) then sRes = aArr(i+1)
    next
  end if

  getValFromLOV = sRes  
end function


function get_options(sql,is_search,is_required,selected_value)
  options_str=""
  if is_search then
    options_str=options_str&"<option value="""">All</option>"
  else
    if is_required then options_str=options_str&"<option value=""""></option>"
  end if
  
  openrs tmprs,sql
  while not tmprs.EOF
    id=GetValue(tmprs, 0)
    value=GetValue(tmprs, 1)
    selected=""
    if CStr(id) = CStr(selected_value) then
			selected = "SELECTED"
		end if
    options_str = options_str & "<option value="""&id&""" "&selected&">"&value&"</option>"
		tmprs.MoveNext
  wend
  get_options = options_str
end function


Function ProceedError()
  if cn.Errors.Count > 0 then
    ProceedError = cn.Errors(0).Description & " (" & cn.Errors(0).Source & ")"
  elseif not (Err.Description = "") then
    ProceedError = Err.Description
  else
    ProceedError = ""
  end if
end Function


function CheckSecurity(iLevel)
  if Session("UserID") = "" then
    response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME")))
  else
    if CLng(Session("UserRights")) < CLng(iLevel) then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) 
  End if
end function

%>


<%


sSQL = "SELECT * FROM REListing where (AdType = '1')"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSQL, objADO, 1, 3

IF (RS.EOF) THEN %>
There are not any featured properties. 

<%
Else
rndMax = CInt(RS.RecordCount)
RS.MoveFirst
Do While Not RS.EOF
RS.MoveNext
Loop
RS.MoveFirst
Randomize Timer
rndNumber = Int(RND * rndMax)
RS.Move rndNumber

id = rs("REListingId")
imgsrc = rs("REListingImage")





'UrlTo = RS("LinkTo")
'GetImg = RS("ImgUrl")
'WriteSize1 = RS("SizeOf1")
'WriteSize2 = RS("SizeOf2")
'DisText = RS("TextUnder")
'ImpNow = RS("ImpNow")
'ImpNewNow = ImpNow + 1





End If
%>
 
 <% if not rs.eof then %>
            <p>
                        <a href="detail.asp?Id=<%= rs("REListingId") %>">
                        
                         <%If (rs("REListingImage")) <> "upload"  Then %>
			
				<img src="upload/<%= rs("REListingImage") %>"  border="0" width="160" height="120">
			<% Else%>
			<img src="images/photonotavailable.gif" border="0" width="160" height="120">
			</a>
			<%End If
		
	%>	
    <br>

<font size="1" >
    
<%=rs("REListingCity")%>, <%=rs("REListingState")%> &nbsp <%=rs("REListingZip")%><br>
<% if rs("REListingPrice") > "0" then %>
<%= formatcurrency(rs("REListingPrice"))%>
<% else %>
Call For Price
<% end if %>
 </a>
 </font> 
 
  <p><font size="1">
            Click <a href="featured.asp"><u>here</u></a> to view more featured properties.
             
   <% end if %>                   
		
</center> 		
 </td>
        </tr>
      </table>	  
 
                   <% if SiteIdMsg <> "" then %>
				<table>
					<tr>
						<td><font color = "red" size="3"><b>Message(s): <%= SiteIdMsg %></font>
						</td>
					</tr>
				</table>
				<% end if %> 
             <form action="" method="post" id=form2 name=form2>
             <table bgcolor="#eeeeee" width="230" align="center">
             <tr>
             <td align="center" width="230">
             <img src="images/searchicon.gif"><b>Site Id Search:</b>  
              <input type="text" size="6" name="txtSiteId"> <input type="submit" name="cmdSearchId" value="Go">
             </td>
             </tr>
             </table> 
             </form> 
               <P>
               
              <% if strMailWarning <> "" then %>
				<table>
					<tr>
						<td><font color = "red" size="3"><b>Message(s): <%= strMailWarning %></font>
						</td>
					</tr>
				</table>
				<% end if %>  
             <form action="" method="post" id=form2 name=form2>
             <table bgcolor="#eeeeee" width="230" align="center">
             <tr>
             <td align="center" width="230" valign=middle>
          <img src="images/email_icon.gif"><b>Join Our Mailing List</b><br>  
           Enter Your Email Address: <input type="text" size="20" name="txtEmail"> <input type="submit" name="cmdMailSubmit" value="Join Now!">
             </td>
             </tr>
             </table> 
             </form>        
  </td>
    <td rowspan=3 bgcolor="#FFFFFF" valign="top">  
    
    
<table width="500" border="0" cellspacing="5" cellpadding="5" align="right">
        <tr>
        <td> 
   <font color="red" size="3"><b>
       <center>           
            <% If Action = "Yes" then  
	sSQL = "DELETE * FROM REListing WHERE REListingID = " & lDelete
	Set rsREListing = objADO.Execute(sSQL)%>

<p>
            
            The selected real estate listing has been deleted from our database.
            <p>Click <a href="menu.asp"><u>here</u></a> to return to the main menu.
            </font> 
           <p>

<%Else%>

Are you sure you want to delete the selected listing?</font>
<br>
Once deleted the listing can not be retrieved. 
<br>Click <a href="menu.asp"><u>here</u></a> to return to the main menu without deleting the listing.
<br>Click <a href="delete.asp?Action=Yes&ID=<%= rsRealEstate("REListingID")%>"><u>here</u></a> to delete the listing.
<%End If%>

       </font>
            
            
            
          </center>
            <br>
            

 
 <% if Action <> "Yes" then %>          
 <table width="100%" cellpadding="1" border="0" cellspacing="0">


<tr bgcolor="#999966"> 
          <td width="33%" nowrap> 
           <font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b>
            <%=rsRealEstate("REListingCity")%>, <%= rsState("StateId")%>
          </td>
          
          <td align="center" nowrap width="33%">
          <font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b>            
            <%= rsRealEstate("REListingType") %>
				
			
					
				</td>
				<td align="right" width="33%" nowrap><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b>
				
			<% if rsRealEstate("REListingPrice") > 0 then %>	
             <%= formatcurrency(rsRealEstate("REListingPrice"))%>
            <% else %>
            
            Contact For Price
            <% end if %> 
            
            
            
            
            
            </b></font>
          </td>
        </tr>
        
        
        
</table>
  
    
    <table border="0" cellpadding="0" cellspacing="0" width="100%"
style="font-family: Arial, MS Sans Serif; font-size: 8pt">

 <% if msg <> "" then %>
<tr>
<td colspan="2" align="center">
<font size="2" color="red"><b><%= msg %></b></font>
</td>
</tr>
<% end if %>

<tr>
<td colspan="2" align="center">
<font size="1">Place your cursor over each smaller picture to enlarge<br>
Click on the large picture for a full view.
</b>
</td>
</tr>

 
 
  <tr>
	<td colspan="2" align="center" valign="top">
		<%If Len(rsRealEstate("REListingImage")) > 0 Then
			If UCase(Left(rsRealEstate("REListingImage"),7))="HTTP://" Then%>
				<img src="<%=rsRealEstate("REListingImage")%>" border="0" width="320" height="240" name="bigimage"><br><br>
			<%Else%>
				<a href="javascript:popup_win('upload/<%=rsRealEstate("REListingImage")%>','','550','550','1','1','100','100');"><img src="upload/<%=rsRealEstate("REListingImage")%>" border="0"  width="320" height="240" name="bigimage"></a>
			<%End If
		Else%>
			<img src="images/photonotavailable.gif" border="0" width="320" height="240" name="bigimage">
		<%End If%>
	</td>
	</tr>

	
	
	
<table width="320" cellpadding="1" cellspacing="0" align="center">	
	
	
	<tr align="center" width="320">
	<td width="160">	
	
		<%If Len(rsRealEstate("REListingImage")) > 0 Then
			If UCase(Left(rsRealEstate("REListingImage"),7))="HTTP://" Then%>
				<img src="<%=rsRealEstate("REListingImage")%>" border="0"  onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage")%>',1)"><br><br>
			<%Else%>
				<img src="upload/<%=rsRealEstate("REListingImage")%>" border="0"  width="110" height="70"   onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage")%>',1)"></a>
			<%End If
		Else%>
			<img src="images/photonotavailable.gif" border="0"  width="110" height="70">
		<%End If%>	
		
		
	</td>
	
	<td width="160">
		<%If Len(rsRealEstate("REListingImage2")) > 0 Then
			If UCase(Left(rsRealEstate("REListingImage2"),7))="HTTP://" Then%>
				<img src="<%=rsRealEstate("REListingImage2")%>" border="0"  width="120" height="80" onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage2")%>',1)"><br><br>
			<%Else%>
				<img src="upload/<%=rsRealEstate("REListingImage2")%>" border="0"  width="110" height="70" onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage2")%>',1)"></a>
			<%End If
		Else%>
			<img src="images/photonotavailable.gif" border="0" width="110" height="70">
		<%End If%>	
		
		
	</td>
	
	<td width="160">
		<%If Len(rsRealEstate("REListingImage3")) > 0 Then
			If UCase(Left(rsRealEstate("REListingImage3"),7))="HTTP://" Then%>
				<img src="<%=rsRealEstate("REListingImage3")%>" border="0"  width="120" height="80" onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage3")%>',1)"><br><br>
			<%Else%>
				<img src="upload/<%=rsRealEstate("REListingImage3")%>" border="0"    width="110" height="70" onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage3")%>',1)">
			<%End If
		Else%>
			<img src="images/photonotavailable.gif" border="0"  width="110" height="70">
		<% End If%>
	</td>
	
	<td width="160">
		<%If Len(rsRealEstate("REListingImage4")) > 0 Then
			If UCase(Left(rsRealEstate("REListingImage4"),7))="HTTP://" Then%>
				<img src="<%=rsRealEstate("REListingImage4")%>" border="0"  width="120" height="80"  onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage4")%>',1)"><br><br>
			<%Else%>
				<img src="upload/<%=rsRealEstate("REListingImage4")%>" border="0"  width="110" height="70" onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage4")%>',1)"></a>
			<%End If
		Else%>
			<img src="images/photonotavailable.gif" border="0"  width="110" height="70">
		<% End If%>
	</td>
	
	</tr>	
		
	<tr align="center" width="320">
	
	
	
	
	<td width="160">
		<%If Len(rsRealEstate("REListingImage5")) > 0 Then
			If UCase(Left(rsRealEstate("REListingImage5"),7))="HTTP://" Then%>
				<img src="<%=rsRealEstate("REListingImage5")%>" border="0"  width="120" height="80"  onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage5")%>',1)"><br><br>
			<%Else%>
				<img src="upload/<%=rsRealEstate("REListingImage5")%>" border="0"  width="120" height="80"  onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage5")%>',1)"></a>
			<%End If
		Else%>
			<img src="images/photonotavailable.gif" border="0"  width="110" height="70">
		<% End If%>
	</td>
	
	<td width="160">
		<%If Len(rsRealEstate("REListingImage6")) > 0 Then
			If UCase(Left(rsRealEstate("REListingImage6"),7))="HTTP://" Then%>
				<img src="<%=rsRealEstate("REListingImage6")%>" border="0"  width="120" height="80"  onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage6")%>',1)"><br><br>
			<%Else%>
				<img src="upload/<%=rsRealEstate("REListingImage6")%>" border="0"  width="120" height="80"  onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage6")%>',1)"></a>
			<%End If
		Else%>
			<img src="images/photonotavailable.gif" border="0"  width="110" height="70">
		<% End If%>
	</td>
	
	<td width="160">
		<%If Len(rsRealEstate("REListingImage7")) > 0 Then
			If UCase(Left(rsRealEstate("REListingImage7"),7))="HTTP://" Then%>
				<img src="<%=rsRealEstate("REListingImage7")%>" border="0"  width="120" height="80"  onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage7")%>',1)"><br><br>
			<%Else%>
				<img src="upload/<%=rsRealEstate("REListingImage7")%>" border="0"  width="110" height="70" onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage7")%>',1)"></a>
			<%End If
		Else%>
			<img src="images/photonotavailable.gif" border="0"  width="110" height="70">
		<% End If%>
	</td>
	
	<td width="160">
		<%If Len(rsRealEstate("REListingImage8")) > 0 Then
			If UCase(Left(rsRealEstate("REListingImage8"),7))="HTTP://" Then%>
				<img src="<%=rsRealEstate("REListingImage8")%>" border="0"  width="120" height="80"  onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage8")%>',1)"><br><br>
			<%Else%>
				<img src="upload/<%=rsRealEstate("REListingImage8")%>" border="0"  width="110" height="70" onMouseOver="MM_swapImage('bigImage','','upload/<%=rsRealEstate("REListingImage8")%>',1)"></a>
			<%End If
		Else%>
			<img src="images/photonotavailable.gif" border="0"  width="110" height="70">
		<% End If%>
	</td>
	
	</tr>
	
	
	
		
</table>
<table width="100%">			
		
		
		
		
		
		
		
		
		<% if rsRealEstate("REListingVTour") <> "" then %>
		<tr> 
          <td align="center" colspan="2"> 
            <br><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b>
            <a href="<%=rsRealEstate("REListingVTour")%>" target=" ">Click To See Virtual Tour</a></b></font>
             </p>
          </td>
        </tr>
        <%End If%>
        
        
        
       
 
 

       
		
		
		<tr bgcolor="#CCCCCC" border="1"> 
          <td bgcolor="#999966" valign="top" height="2" colspan="3"> 
            <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b>&nbsp;HOME 
              DETAILS </b></font>
          </td>
        </tr>
		
		 <tr> 
    <td colspan="2" align="left" valign="top">
		 <blockquote> <%=rsRealEstate("REListingDescription")%></b><p>
	</td>
  </tr>
		
		
		<tr>
		<td colspan="2">
		<b> <blockquote>
		<% if rsRealEstate("REListingPrice")> 0 then %>
		<%= formatcurrency(rsRealEstate("REListingPrice")) %><p>
		<% else %>
		<a href="javascript:popup_win('contactseller.asp?Id=<%= rsRealEstate("REListingId")%>','','430','445','1','1','100','100');"><u>Contact Seller For Price</u></a><p>
		<% end if %>
		Location:<br></b> 
<% if rsRealEstate("REDisplayAddress") = "1" then %>
<a 
href="http://www.mapquest.com/directions/main.adp?2l=oUXvdfgyLSs%253d&2g=c682gggm7c0%253d&2pn=&2ic=31&2ex=1&src=maps&2a=<%= rsRealEstate("REListingAddress1") %>
&2c=<%= rsRealEstate("REListingCity") %>&2s=<%= rsState("StateId")%>&2z=<%= rsRealEstate("REListingZip") %>&2y=US" target=" ">		
<font face="Arial, MS Sans Serif" size="1">		
		
		<%=rsRealEstate("REListingAddress1")%><br>
		<% if rsRealEstate("REListingAddress2")<> "" then %>
		<%=rsRealEstate("REListingAddress2")%><br>
		<% end if %>
<% end if %>		
		<% if rsRealEstate("REListingCity")<> "" then %>
		<%=rsRealEstate("REListingCity")%><br>
		<% end if %>
		<% if rsRealEstate("REListingState")<> "" then %>
		 <%= rsRealEstate("REListingState")%><br>
		 <% end if %>
		 
		 <% if rsRealEstate("REListingZip")<> "" then %>
		 <%= rsRealEstate("REListingZip")%><br>
		<% end if %>
		
</a>		
		</b>
		</td>
		</tr>
		
		
		<% if rsRealEstate("REDisplayContact") = "1" then %>
		<tr>
		<td><br>
		 <blockquote><%sREListingEmail = rsRealEstate("REListingEmail")
		If Len(sREListingEmail) > 0 Then
			%><b>Contact:</b> <a href="mailto:<%=sREListingEmail%>"><%
		End If %>
		<%= rsRealEstate("REListingAgent")%>
		<% If Len(sREListingEmail) > 0 Then
			%></a><%
		End If%>
		</td>
		</tr>
		<% if rsRealEstate("REListingTel") <> "" then %>
		<tr>
		<td colspan="2">
		 <blockquote> Call <%= formatphonenumber(rsRealEstate("REListingTel")) %> for more information.
		</td>
		</tr>
		<% end if %>
		<% end if %>
		<tr>
		<td>	
		 <blockquote> <b>Site Listing #</b> <%= rsRealEstate("REListingId")%>
		</td>
		</tr>
		
		<tr>
		<td>
		 <blockquote><%= rsRealEstate("REListingSKUNo")%>
		</td>
		</tr>
		<tr>
		<td colspan="2">
		 <blockquote><a href="Userlistings.asp?Id=<%= rsRealEstate("REListingUserName")%>"><u><b>[ View All Properties By This User ]</u></a></b>
		<tr>
		<td colspan="4">
		<hr>
	</td>
  </tr>

  <tr>
	<td width="50%" align="left" valign="top">
 
		
		
		
		<table border="0" cellpadding="0" cellspacing="1" width="95%"
		style="font-family: Arial, MS Sans Serif; font-size: 8pt" align="center">
		 <%iYearBuilt = rsRealEstate("REListingYearBuilt")
		If iYearBuilt > 0 Then%>
		<tr>
			<td><b>Year Built</td>
			<td><%=iYearBuilt%></td>
		</tr>
		<%End If%>
		<tr>
			<td><b>Type</td>
			<td> <%= rsRealEstate("REListingType")%>, &nbsp <%= rsRealEstate("RESaleType")%>
				</b></td>
		</tr>
		<%If rsRealEstate("ReListing.REStyleID") > 0 Then%>
		<tr>
			<td><b>Style</td>
			<td><%=rsRealEstate("REStyleName")%></b></td>
		</tr>
		<%End If
		If rsRealEstate("ReListing.REExteriorID") > 0 Then%>
		<tr>
			<td><b>Exterior</td>
			<td><%=rsRealEstate("REExteriorName")%></b></td>
		</tr>
		<%End If
		If rsRealEstate("ReListing.RERoofID") > 0 Then%>
		<tr>
			<td><b>Roof</td>
			<td><%=rsRealEstate("RERoofName")%></b></td>
		</tr>
		<%End If
		If rsRealEstate("ReListing.REDrivewayID") > 0 Then%>
		<tr>
			<td><b>Driveway</td>
			<td><%=rsRealEstate("REDrivewayName")%></b></td>
		</tr>
		<%End If
		If rsRealEstate("ReListing.REGarageID") > 0 Then%>
		<tr>
			<td><b>Garage</td>
			<td><%=rsRealEstate("REGarageName")%></b></td>
		</tr>
		<%End If
		If rsRealEstate("ReListing.REHeatID") > 0 Then%>
		<tr>
			<td><b>Heating</td>
			<td><%=rsRealEstate("REHeatName")%></b></td>
		</tr>
		<%End If
		If rsRealEstate("ReListing.REACID") > 0 Then%>
		<tr>
			<td><b>AC</td>
			<td><%=rsRealEstate("REACName")%></b></td>
		</tr>
		<%End If
		If rsRealEstate("ReListing.REWaterID") > 0 Then%>
		<tr>
			<td><b>Water</td>
			<td><%=rsRealEstate("REWaterName")%></b></td>
		</tr>
		<%End If
		If rsRealEstate("ReListing.RESewerID") > 0 Then%>
		<tr>
			<td><b>Sewer</td>
			<td><%=rsRealEstate("RESewerName")%></b></td>
		</tr>
		<%End If
		If rsRealEstate("REListingDisposal") = True Then%>
		<tr>
			<td><b>Disposal</td>
			<td>Yes</b></td>
		</tr>
		<%End If
		If rsRealEstate("REListingDishwasher") = True Then%>
		<tr>
			<td><b>Dishwasher</td>
			<td>Yes</b></td>
		</tr>
		<%End If
		curTaxValue = rsRealEstate("REListingTaxValue")
		If curTaxValue > 0 Then%>
		<tr>
			<td><b>Tax Value</td>
			<td><%=FormatCurrency(curTaxValue)%></b></td>
		</tr>
		<%End If
		curTaxes = rsRealEstate("REListingTaxes")
		If curTaxes > 0 Then%>
		<tr>
			<td><b>Taxes</td>
			<td><%=FormatCurrency(curTaxes)%></b></td>
		</tr>
		<%End If
		curAvgElectric = rsRealEstate("REListingAvgElectric")
		curAvgOil = rsRealEstate("REListingAvgOil")
		curAvgGas = rsRealEstate("REListingAvgGas")
		curAvgWater = rsRealEstate("REListingAvgWater")
		If curAvgElectric > 0 And curAvgWater > 0 Then%>
		<tr>
			<td colspan="2">
			
			<table border="0" cellpadding="0" cellspacing="0" width="100%"
			style="font-family: Arial, MS Sans Serif; font-size: 8pt">
			<tr>
				<td align="center" bgcolor="#CBFFA9" 
				style="border-left: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0)"><b>Avg.Electric</td>
				<td align="center" bgcolor="#CBFFA9" 
				style="border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0)"><b>Avg.Oil</td>
				<td align="center" bgcolor="#CBFFA9" 
				style="border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0)"><b>Avg.Gas</td>
				<td align="center" bgcolor="#CBFFA9" 
				style="border-right: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0)"><b>Avg.Water</td>
			</tr>
			<tr>
				<td align="right"
				style="border-left: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0)"><%=FormatCurrency(curAvgElectric)%></b></td>
				<td align="right" style="border-bottom: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0)"><%=FormatCurrency(curAvgOil)%></b></td>
				<td align="right" style="border-bottom: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0)"><%=FormatCurrency(curAvgGas)%></b></td>
				<td align="right" style="border-right: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)"><%=FormatCurrency(curAvgWater)%></b></td>
			</tr>
			</table>
			</td>
		</tr>
		<%End If%>
		</table>
	</td>
	<td width="50%" align="left" valign="top">
		
		<table border="0" cellpadding="0" cellspacing="0" width="95%"
		style="font-family: Arial, MS Sans Serif; font-size: 8pt">
		<%sLotSize = rsRealEstate("REListingLotSize")
		If Len(sLotSize) > 0 Then%>
		<tr>
			<td><b>Acre(s) or Lot Size</td>
			<td><%=sLotSize%></b></td>
		</tr>
		<%End If
		lLevel1ft = rsRealEstate("REListingLevel1ft")
		If lLevel1ft > 0 Then%>
		<tr>
			<td><b>Level 1 ft<sup>2</sup></td>
			<td><%=lLevel1ft%></b></td>
		</tr>
		<%End If
		lLevel2ft = rsRealEstate("REListingLevel2ft")
		If lLevel2ft > 0 Then%>
		<tr>
			<td><b>Level 2 ft<sup>2</sup></td>
			<td><%=lLevel2ft%></b></td>
		</tr>
		<%End If
		lBasementft = rsRealEstate("REListingBasementft")
		If lBasementft > 0 Then%>
		<tr>
			<td><b>Basement ft<sup>2</sup></td>
			<td><%=lBasementft%></b></td>
		</tr>
		<%End If
		lTotalft = rsRealEstate("REListingTotalft")
		If lTotalft > 0 Then%>
		<tr>
			<td><b>Total ft<sup>2</sup></td>
			<td><%=lTotalft%></b></td>
		</tr>
		<%End If
		iBedrooms = rsRealEstate("REListingBedrooms")
		If iBedrooms > 0 Then%>
		<tr>
			<td><b>Bedrooms</td>
			<td><%=iBedrooms%></b></td>
		</tr>
		<%End If
		iBathrooms = rsRealEstate("REListingBathrooms")
		If iBathrooms > 0 Then%>
		<tr>
			<td><b>Bathrooms</td>
			<td><%=iBathrooms%></b></td>
		</tr>
		<%End If
		iFireplace = rsRealEstate("REListingFireplace")
		If iFireplace > 0 Then%>
		<tr>
			<td><b>Fireplace(s)</td>
			<td><%=iFireplace%></b></td>
		</tr>
		<%End If
		iLevels = rsRealEstate("REListingLevels")
		If iLevels > 0 Then%>
		<tr>
			<td><b>Levels</td>
			<td><%=iLevels%></b></td>
		</tr>
		<%End If
		If rsRealEstate("REListingRoom1ID") > 0 Then%>
		<tr>
			<td colspan="2">
			<table border="0" cellpadding="0" cellspacing="0" width="100%"
			style="font-family: Arial, MS Sans Serif; font-size: 8pt">
			  <tr>
				<td bgcolor="#CBFFA9" style="border-left: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)"><p
				align="center"><b>Room</td>
				<td bgcolor="#CBFFA9" style="border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)"><p
				align="center"><b>Dimensions</td>
				<td bgcolor="#CBFFA9" style="border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)"><p
				align="center"><b>Flooring</td>
			  </tr>
			  <tr>
				<td style="border-left: 1px solid rgb(0,0,0)"><b><%Response.Write "&nbsp;"%><%=GetRoomName(rsRealEstate("REListingRoom1ID"))%></b></td>
				<td><%Response.Write "&nbsp;"%><%If iRoom < 1 Then Response.Write rsRealEstate("REListingSize1")%></b></td>
				<td style="border-right: 1px solid rgb(0,0,0)"><%Response.Write "&nbsp;"%><%=GetFlooringName(rsRealEstate("REListingFlooring1ID"))%></b></td>
			  </tr>
			  <tr>
				<td style="border-left: 1px solid rgb(0,0,0)"><b><%Response.Write "&nbsp;"%><%=GetRoomName(rsRealEstate("REListingRoom2ID"))%></b></td>
				<td><%Response.Write "&nbsp;"%><%If iRoom < 2 Then Response.Write rsRealEstate("REListingSize2")%></b></td>
				<td style="border-right: 1px solid rgb(0,0,0)"><%Response.Write "&nbsp;"%><%=GetFlooringName(rsRealEstate("REListingFlooring2ID"))%></b></td>
			  </tr>
			  <tr>
				<td style="border-left: 1px solid rgb(0,0,0)"><b><%Response.Write "&nbsp;"%><%=GetRoomName(rsRealEstate("REListingRoom3ID"))%></b></td>
				<td><%Response.Write "&nbsp;"%><%If iRoom < 3 Then Response.Write rsRealEstate("REListingSize3")%></b></td>
				<td style="border-right: 1px solid rgb(0,0,0)"><%Response.Write "&nbsp;"%><%=GetFlooringName(rsRealEstate("REListingFlooring3ID"))%></b></td>
			  </tr>
			  <tr>
				<td style="border-left: 1px solid rgb(0,0,0)"><b><%Response.Write "&nbsp;"%><%=GetRoomName(rsRealEstate("REListingRoom4ID"))%></b></td>
				<td><%Response.Write "&nbsp;"%><%If iRoom < 4 Then Response.Write rsRealEstate("REListingSize4")%></b></td>
				<td style="border-right: 1px solid rgb(0,0,0)"><%Response.Write "&nbsp;"%><%=GetFlooringName(rsRealEstate("REListingFlooring4ID"))%></b></td>
			  </tr>
			  <tr>
				<td style="border-left: 1px solid rgb(0,0,0)"><b><%Response.Write "&nbsp;"%><%=GetRoomName(rsRealEstate("REListingRoom5ID"))%></b></td>
				<td><%Response.Write "&nbsp;"%><%If iRoom < 5 Then Response.Write rsRealEstate("REListingSize5")%></b></td>
				<td style="border-right: 1px solid rgb(0,0,0)"><%Response.Write "&nbsp;"%><%=GetFlooringName(rsRealEstate("REListingFlooring5ID"))%></b></td>
			  </tr>
			  <tr>
				<td style="border-left: 1px solid rgb(0,0,0)"><b><%Response.Write "&nbsp;"%><%=GetRoomName(rsRealEstate("REListingRoom6ID"))%></b></td>
				<td><%Response.Write "&nbsp;"%><%If iRoom < 6 Then Response.Write rsRealEstate("REListingSize6")%></b></td>
				<td style="border-right: 1px solid rgb(0,0,0)"><%Response.Write "&nbsp;"%><%=GetFlooringName(rsRealEstate("REListingFlooring6ID"))%></b></td>
			  </tr>
			  <tr>
				<td style="border-left: 1px solid rgb(0,0,0)"><b><%Response.Write "&nbsp;"%><%=GetRoomName(rsRealEstate("REListingRoom7ID"))%></b></td>
				<td><%Response.Write "&nbsp;"%><%If iRoom < 7 Then Response.Write rsRealEstate("REListingSize7")%></b></td>
				<td style="border-right: 1px solid rgb(0,0,0)"><%Response.Write "&nbsp;"%><%=GetFlooringName(rsRealEstate("REListingFlooring7ID"))%></b></td>
			  </tr>
			  <tr>
				<td style="border-left: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)">
				<%Response.Write "&nbsp;"%><b><%=GetRoomName(rsRealEstate("REListingRoom8ID"))%></b></td>
				<td style="border-bottom: 1px solid rgb(0,0,0)"><%Response.Write "&nbsp;"%>
				<%If iRoom < 8 Then Response.Write rsRealEstate("REListingSize8")%></b></td>
				<td style="border-right: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)">
				<%Response.Write "&nbsp;"%><%=GetFlooringName(rsRealEstate("REListingFlooring8ID"))%></b></td>
			  </tr>
			</table>
			</td>
		</tr>
		<%End If%>
		</table>

	</td>
  </tr>
  
 
  
  
<tr>
<td colspan="3">
<hr>
</td>
</tr>
</table>




<% end if %>


    
    
  

 </p>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  
      </table>
    </td>
  </tr>
  <tr> 
    <td height="2"> <img src="images/spacer.gif" width=265 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=9 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=466 height=1 alt=""></td>
  </tr>
</table>
<table width=740 border=0 cellpadding=0 cellspacing=0>
  <tr> 
    <td height="2"> <img src="images/spacer.gif" width=83 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=150 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=1 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=31 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=90 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=138 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=1 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=246 height=1 alt=""></td>
  </tr>
  <tr> 
    <td height="2" colspan="8"> 
     



<table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="23" background="images/bar2.gif">
            <div align="center">(c) <%= year(date) %> <a href="<% =strVarWebsite %>"><u><%= strVarCompany %></u></a> 
              <br>
              Read our <a href="javascript:popup_win('terms.asp','','550','550','1','1','100','100');"><u>Terms & Conditions</u></a>, and <a href="javascript:popup_win('privacypolicy.asp','','550','550','1','1','100','100');"><u>Privacy Policy</u></a>              
              
               </div>
          </td>
        </tr>
      </table>
    </TD>
  </TR>
  <TR> 
    <TD height="2" colspan="8">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="21" background="images/bar3.gif">
            <div align="center">
            Website Development Provided By: <a href="http://www.devsolutions.us" target=" "><u>Development Solutions</u></a>
            
            </div>
          </td>
        </tr>
      </table>
    </TD>
  </TR>
</TABLE>
</BODY>
</HTML>